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Introducción 


En muchos aspectos, un ordenador es el contrincante ideal para 
jugar. 

Incapaz de vanagloriarse cuando gana, elegante perdedor, es in- 
cansable, paciente y siempre dispuesto. A pesar de que no puede dar 
este sentido humano, que puede ser una gran parte del placer de 
jugar con otras personas, el ordenador parece ser el compañero per- 
fecto con el que pasar las horas. 

Sin importar porqué «pensó» que compraba su Spectrum, noso- 
tros le retamos a gastar al menos parte de su tiempo de compu:ador 
jugando: aquí es donde viene este libro. Aquí encontrará una gran 
variedad de juegos, desde juegos de tablero como AJEDREZ y 
DAMAS, acción en programas como JOGGER y NIVEL CINCO, a 
nuestro gran juego de aventuras: LA VENGANZA DEL CASTILLO EN- 
CANTANDO. Hemos propuesto interesantes programas de gran méri- 
to, así como otros que le aportarán sugerencias e ideas para aplicar a 
sus propios trabajos. 

Para ayudarle a obtener el máximo provecho de este libro, hemos 
escrito instrucciones detalladas de los juegos. En la mayoría de los 
casos la introducción presenta el programa línea por línea, explicando 
los trucos que los programadores han usado sugiriéndole cómo pue- 
den ser aplicados a sus propios programas y juegos. Algunos progra- 
mas también contienen indicaciones de cómo modificarlos según sus 
deseos, mejorándolos y desarrollándolos como quiera. 

La mayoría de los programas de este libro fueron escritos por Tim 
Rogers, Paul Toland y Tim Hartnell. Rogers y Toland son estudiantes 
(Rogers en Londres y Toland en Belfast) y merecen ser felicitados por 
la calidad y originalidad de su trabajo, que se refleja en los programas 
que hemos seleccionado en este libro. En la página 169 puede encon- 
trar una lista completa de los autores de los programas. 

Es hora de empezar a entrar código a su Spectrum para que 
pueda disfrutar estos juegos que merecen realmente el adjetivo de 
«dinámicos». 

Tim Hartnell 
Londres, marzo de 1983 


Juegos de acción 


Nivel cinco 


Tranquilícese, tómeselo con calma, porque aquí viene NIVEL 
CINCO, una rápida adaptación de un famoso juego de acción. 

El área de juego está constituida por cinco niveles conectados por 
una serie de escaleras. Cuatro monstruos arrancan del nivel más bajo 
y se desplazan hacia la parte superior. Su trabajo es contenerlos en la 
prisión situada debajo del primer nivel. El problema principal es que, 
ya que estos monstruos se desplazan hacia arriba, la única manera de 
mantenerlos abajo es cavar agujeros en las plantas para que caigan a 
través de ellos. Puede cavar un agujero pulsando el «f», siempre y 
cuando no haya otro agujero en la pantalla. Cada agujero cavado se 
mantendrá un corto período de tiempo. 

Usted controla sus movimientos usando las siguientes teclas: «5» 
(izquierda), «8» (derecha), «6» (arriba), «7» (abajo). El juego termina 
cuando se consigue encarcelar a todos los monstruos. En este punto 
será informado del tiempo que ha tardado en conseguirlo. El juego 
termina prematuramente si usted es saltado por un monstruo. Como 
es habitual en programas para Spectrum, la calidad de los gráficos 
sólo es sugerida por la impresión de muestra. Encontrará este progra- 
ma muy rápido y capaz de crear dependencia. El autor del programa, 
Paul Toland, ha conseguido una puntuación de 6f jifis. Le desafiamos 
a mejorarla. 

La línea 1 muestra qué gráfico hay en cada tecla, con los ladrillos 
en «A», secciones de escalera en «B», usted (el que corre), en «C» y 
los apuestos monstruos en «E». La línea 25 envía la acción a la subru- 
tina de la línea 91PH, después de definir la tinta (INK) blanca y el papel 
(PAPER) y borde (BORDER) azules. En esta subrutina se imprimen 
las instrucciones en la pantalla. La línea 9134 espera hasta que usted 
pulsa una tecla cualquiera y entonces borra la pantalla. El resto de las 
instrucciones aparecen junto con el mensaje «¡Buena suerte!». La ins- 
trucción RETURN de la línea 916f4 envía la acción a la línea 3f, donde 
se llama la subrutina de la línea 9PPP. 9PPP empieza restaurando 
(RESTORE) el puntero DATA a sí mismo (lo cual tiene el efecto de 
restaurarlo en el próximo elemento de DATA después del número que 
sigue a la palabra RESTORE). Esto asegura que cuando funcionan 


E) 


los bucles | y J (líneas 9991 a 9/46), los números leídos para ser 
colocados (POKE) en los gráficos son los de las líneas 9050, 9/66, 
9970, 908H y 9996, y no desde la línea 1070. 

Una vez se han definido los gráficos, el programa va (mediante la 
segunda instrucción de la línea 3H) a la subrutina de la línea 7/6, que 
imprime los cinco pasadizos, uno por cada nivel. La línea 91f se res- 
taura (RESTORE) a sí misma, de la misma forma que el RESTORE 
900H anteriormente analizado, moviendo el puntero DATA al primer 
elemento de DATA que sigue al RESTORE. En este caso es la línea 
1930 la que contiene la información usada en los bucles | y J (10PP a 
1950) para poner las escaleras en su sitio. La línea 1955 borra la últi- 
ma línea de la pantalla y el programa vuelve a la línea 4f, donde em- 
pieza la diversión. 

Y y X, las coordenadas de la figura (Vd.), se igualan a 14 y 3 
respectivamente en la línea 4H. M, que cuenta los monstruos, se igua- 
la a 4 en la línea 59, y se crea un vector en la segunda parte de esta 
línea para contener a los monstruos antes de que arranquen con el 
bucle de la línea 69. El vector H (que contiene su agujero) se DIMen- 
siona en la línea 76, y la tinta (INK) y el papel (PAPER) se ponen a 8 
en la línea 8, justo antes de que usted sea impreso en la pantalla en 
la línea 96. 

La variable TIEMPO (recuerde que la mejor puntuación de Paul 
es 6f) se iguala a f en la línea 1PP y se va incrementando en la línea 
395, donde, además, se imprime en la pantalla. El título del programa 
se coloca en la parte superior de la pantalla (116) , dejando un espacio 
para que aparezca el TIEMPO. La bandera LIBRE se iguala a $ en la 
línea 196. 

El bucle | comprueba la posición y controla la acción de los mons- 
truos. Funciona de la línea 24P a la 394 y contiene todas las acciones 
importantes del programa: sigue la pista de los monstruos (2P5), los 
reimprime (219 y 229), controla sus inmediaciones (225 y 23H) y sus 
movimientos pasando a la línea 43 si le pasan o a la 28f) si están 
subiendo. La coordenada horizontal se incrementa en a línea 246, y la 
línea siguiente invierte la dirección del monstruo si alcanza los extre- 
mos de un pasadizo. ¡Monstruo fuera! puede gritar si se cuela por un 
agujero (línea 27H), antes de ser reimpreso en su nueva posición en la 
línea 28P. 

La línea 295 rellena un agujero después de 4f ciclos de programa 
desde que ha sido creado. La línea 3PP lee el teclado, saltando a la 
siguiente rutina si no hay ninguna tecla pulsada en este momento. Si 
lee un «f», sabe que usted quiere cavar un agujero. Si H (3) es igual a 
cero, el ordenador sabe que no hay otros agujeros en la pantalla y 
define las coordenadas del agujero en la posición en la que usted se 
encuentra, inprimiendo un agujero en esta posición y saltando a la 
línea 399. 
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El ordenador sabe que si usted está pulsando el cero en la línea 
315, no pulsará «5», «6», «7» u «8» durante las próximas líneas, por 
tanto las salta para conseguir una máxima velocidad de ejecución. La 
línea 317 comprueba si la tecla pulsada está entre «4» y «9», si no 
está en este intervalo, salta a la línea 39/. La próxima línea le coloca 
en posición, y la línea 325 asigna un 15 a su dirección de ATTRibuto 
para hacerlo desaparecer de su actual situación, antes de reimprimirlo 
en la línea 399 (los ATTRibutos se almacenan después del campo de 
pantalla, desde la dirección 22528). 

La línea 327 comprueba si usted está en un pasadizo y, si descu- 
bre que no, salta a la línea 350 para ver si desea moverse arriba o 
abajo por una escalera. N, el valor usado para almacenar el ATTRibu- 
to de su posición, es igualado al ATTRibuto actual en 37f, antes de 
que usted sea impreso en 38P. Se alcanza 33P si usted está en un 
pasadizo, donde se puede mover según sus deseos mediante las te- 
clas «5» a «8». La línea 34f le para si trata de rebasar los límites de la 
pantalla. Se reinicia el ciclo completo en 399. 

Después de ejecutar el bucle | cuatro veces, la variable LIBRE se 
examina para ver si han sido capturados todos los monstruos. Si no es 
así, vuelve a 19f, manteniendo en marcha el juego. La línea 418 indi- 
ca que los ha cogido a todos y 43f que le han cogido ellos a usted. Se 
le ofrece una nueva partida en 500 y el juego se reanuda si pulsa 
cualquier tecla que no sea «N» O «n». 
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Circo 


CIRCO es un juego de acción algo parecido a «Breakout», pero 
con un escenario más interesante y más difícil para el jugador. Usted 
debe hacer estallar unos globos situados en la parte superior de la 
pantalla mediante los saltos de dos payasos sobre un trampolín, situa- 
do en la parte inferior. Usted controla el trampolín con las teclas «5» y 
«8». Pulsando la tecla «1» el payaso del trampolín cambia de lado. El 
payaso que cae debe tocar su lado del trampolín para proyectar al otro 
hacia los globos. Lo ideal es aterrizar en el extremo del trampolín. Si el 
payaso aterriza cerca del centro del trampolín, el otro payaso no subi- 
rá suficientemente para tocar los globos. 

El juego es tan difícil que hemos debido incluir payasos adiciona- 
les para que el jugador pueda hacer estallar un número razonable de 
globos. 

Cuando ejecute el programa, verá las instrucciones de la siguien- 
te forma: 


UNES. 
El ci a ciuded 
Y ola la son los 
Paya saltan 
desi $ta unos 
3lob 
El pa ebe tocar 
eiLs ncorrecto 
del cerca de 


la mitad del trampolin, el otro 
Payaso no subira suficiente 
para tocar los globos. 

El circo tiene solo 3eis payasos 
por tanto tenga cuidado! 

“d+. controla el trampolin con. 
Las teclas S y 8. Puede cambiar 
de lado al payaso del trampolin 
pulsando "1". Pulse 'N” para 
parar y cualquier otra tecla 
Para empezar 


Y, una vez iniciado el juego, la pantalla queda de esta forma: 


| 

El listado del programa muestra en la línea 5 los gráficos definidos 
por el usuario, con «A» para el pivote del trampolín, «B» para el paya- 
so y «C» para el globo. Después de generar un número aleatorio en 
29, el programa va a la línea 80 donde se activa OVER, la tinta (INK) 
se hace negra, el papel (PAPER) blanco y el borde (BORDER) rojo, 
antes de borrar la pantalla para establecer el color del papel. 

Desde aquí el programa salta a la subrutina de la línea 999, donde 
se llaman otras dos subrutinas (1190 y 1020). La primera imprime el 
título y las instrucciones en la pantalla y la segunda define los gráficos. 
Al volver de estas subrutinas, se dibuja el marco (líneas 902 a 905) y 
se colocan los globos en su lugar mediante el bucle | (líneas 910 a 


930). Este mismo bucle dibuja los payasos de reserva a la izquierda 
de la pantalla 


En las próximas dos líneas se definen una serie de variables. SC 
almacena la puntuación, o sea el número de globos que ha hecho 
estallar (189). SS es la posición horizontal de la base del trampolín 
que se usa en la línea 50 para colocarlo y para dibujar el payaso. 
Observe que las líneas 40 y 6f son una subrutina que es solicitada 
repetidamente a lo largo del programa. 

M cuenta los payasos en juego y se incrementa en la línea 3PP, a 
donde se llega desde la línea 236. El vector B$ se utiliza para imprimir 
26 espacios en blanco en la línea 33f cuando un payaso ha caído mal. 
OD y AN controlan la posición del payaso del trampolín. Cambiando 
estas variables por sus negativas (197) se invierte la posición del 
trampolín. OD y AN se usan en las líneas 56, 264 y 280. 

La variable CA se usa para detectar cuándo debe cambiarse AN 
(véase líneas 95 y 270) y HL se determina en 25P y se usa en 169 para 
detectar cuándo debe invertirse el sentido de movimiento del payaso 
en la coordenada Y (desplazamiento vertical) (véase líneas 160 y 
140). X es la coordenada inicial del payaso usada en la línea 139 e 
incrementada en la 14f por medio de A, que se cambia en 284 para 
invertir el movimiento horizontal del payaso. Y (determinado en 95M) 
es la coordenada vertical inicial. Este valor empieza en algún punto 
entre 5 y 8. 

La línea 100 lee el teclado detectando «5» y el «8» para cambiar 
la posición de la base del trampolín. Este valor se supervisa en la línea 
siguiente (1P5) para asegurarse que usted no intenta mover el trampo- 
lín más allá de los límites de la pantalla. 


32 REM U.D.IG,. 142A aB 0=0 
7 REN 


n P.TOLAND+ 
EN] RANDOMIZE 
“9 80 30 
ERIN? AT 21,ss;'a "¡AT 21,55 
2 “Blor sss8-16,7+tan=1): DRAU 
7+an: RET 
E o on AA a: PAPER 7: S0R 
DER 2: CLs 
55 60 3US 900: 60 SUB SsQ 
39 60 5UB_Su 
035 1F Ca THEN LET an=-am: LET 
3= 
108 LET ss=s35+(INKEY$="8"")- (INK 
EY$="5") 
105 LET_ss=55+(55=4) - (5527) 
107 IF INKEYS="1" THEN LET an=- 
an: LET od=-0d 
lia ”"G0 Sus s8 
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¿1S9,IE X29 OR x=28 THEN LET a=- 
100 7 USAUTHEN LET da-d 
185 LET NOZATTR (Y¿X) 
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170 IF_no=S6 THEN GO TO_210 
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a 
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Y,20;5sc 
190 LET d= 
13% 1F scz260 THEN G0 TO 348 
308 60 TO_90 
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iscí>-an_ THEN GO TO 3 
250 LET hU=11-ABS dist 
260 LET x=35+ 
270 LET Od=di a 
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290 60 _TO 90 
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1049 READ n: PORKE USR "a"+i,n 
1050 NEXT_i 
10589 RETURN 
1079 DATA 8,0,9,0,16,56,124,254 
ES DATA 55,55,16,254,16,40,40, 
1099 DATA_0,560,110,1205,52,23,39,4 
11009 É CIRCO INSTRUC 
CIÓN 
1110 Lo circo ha venido a 
La w la atraccion estr 
ella Payasos. Dos payaso 
3 sa desde un trampolin 
hast globos en el aire. 
1115 Ll payaso que cae no 
Jeb el suelo ni el lado 
ima del trampolin. Si c 
3e La mitad del trapo 
Li Payaso mo subira su 
fic para tocar los glob 
05. L circo tiene solo 
sei por tanto tenga Cui 
Jad 
112 “Ud. controla _el tra 
mMpo las teclas 5 y 39. 
Pue de lado al payaso 
del pulsando “1, Puls 
e, parar y cualquier 
otr para empezar" 
A NRKEYS="" THEN GO TO 113 
1140 NREYS="n" OR INKEYS$="N" 
115 
115 
Jogger 


Usted debe ayudar a cinco cansados practicantes del «jogging» a 
cruzar una concurrida autopista de seis carriles. Uno a uno los joggers 
ponen su vida en sus manos para que los guíe a través del tráfico 
usando las teclas «5» (izquierda), «8» (derecha), «6» (arriba) y «7» 
(abajo). Cualquier error es el fin del juego. 

No sólo debe luchar contra el tráfico, el tiempo también es su 
enemigo. Cada vez que consiga pasar a los cinco joggers, el ordena- 
dor le informará del tiempo que ha necesitado para conseguirlo (medi- 
do en una conocida unidad: «latidos de corazón»). Después de un 
corto período de tiempo, para permitirle recuperar la respiración, otros 
cinco joggers se alinearán en la carretera, esperando su asistencia. 

Como puede observar en las dos copias del juego, siempre hay 
cinco joggers en la pantalla, ya sea esperando cruzar, cruzando o ya 
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al otro lado de la autopista. Será informado de cuántos joggers que- 
dan por ayudar (por si usted no supiera contarlos) y también de cuán- 
tos han hecho ya el trayecto. El tiempo, impreso en la segunda línea 
debajo de los joggers a salvo, se actualiza cada vez que usted consi- 
gue pasar un personaje. 

Una vez se haya familiarizado con el juego, lo puede convertir en 
una segunda versión. Con esta modificación el jogger no para de mo- 
verse y se necesita una gran concentración para ayudarle a pasar la 
autopista. Le recomendamos familiarizarse totalmente con el juego 
antes de programar la segunda versión. 

El programa comienza en la línea 29 con la llamada a la subrutina 
de la línea 414. Aquí la tinta se hace azul, el papel blanco, el borde rojo 
y se borra la pantalla, El bucle A de las líneas 449 a 50f define los seis 
gráficos. El primero (gráfico A o carácter 144) es el jogger, los demás 
son los coches. Observará en este bucle (456) que E$ se iguala al 
carácter 143 más el valor de A. El bucle interno B lee (READ) los datos 
(DATA) de las líneas 56f a 61f y los almacena (POKE) en su posición 
en la línea 480. 

La línea 516 determina la variable TIEMPO (el transcurrido por 
serie de cinco joggers, medido en latidos de corazón) e iguala la varia- 
ble MEJORTIEMPO a un número muy grande (9E7 hexadecimal). Su 
MEJORTIEMPO será siempre menor a éste, incluso la primera vez 
que intente pasar los joggers, por tanto la primera vez que consiga 
pasarlos igualará la variable MEJORTIEMPO a su tiempo. 

AS, B$, C$ y DS, que contienen los coches, son inicializados en 
las líneas 520 y 554. Puede colocar tantos coches como quiera en 
estos vectores, ya que son de 32 caracteres (contenido de la pantalla). 
Una vez tome confianza al juego puede complicarlo incrementando el 
número de coches. No obstante, no se pueden colocar de una forma 
totalmente aleatoria. Los vehículos han sido diseñados para moverse 
en una u otra dirección. Los tres carriles superiores circulan hacia la 
derecha y los inferiores hacia la izquierda. Puede usar el gráfico B 
para cualquier carril, manteniendo el «C» para A$ y B$ y «D», «E» y 
«F» para los C$ y D$. 

Una vez se han inicializado las variables y definido los gráficos la 
instrucción RETURN de la línea 555 envía el programa al bucle J que 
empieza en la línea 30. Como puede observar, este bucle controla los 
principales elementos del programa. Se ejecuta cinco veces, una por 
cada jogger. La línea 44 imprime los joggers que están a salvo (siem- 
pre uno menos que el valor actual de J) y el tiempo transcurrido. La 
línea 54 imprime los joggers que quedan por pasar, que es la diferen- 
cia entre J y cinco (por tanto, cuando J es 1, quedan por pasar cuatro 
joggers ya que uno está pasando). 

El pequeño bucle de las líneas 64 y 94 imprime la figura de un 
jogger por cada uno que ha conseguido atravesar. La línea 1PP borra 
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los joggers que quedan por pasar y el bucle de 114 a 134 imprime un 
jogger por cada uno que ha pasado. La variable JA es la posición del 
jogger que está atravesando y JD es la posición en la parte inferior de 
la pantalla. Los joggers empiezan su maratón desde la posición 16, 
19, que es aproximadamente el centro de la pantalla, al lado de la 
primera línea de automóviles. La línea 154 borra la posición donde ha 
estado el jogger el último instante, por tanto, cuando el jogger está en 
movimiento, esta línea borra sus posiciones previas. Las líneas 168 y 
17 leen el teclado, moviendo el jogger según sus deseos antes de 
que se imprima en 180. 

La larga línea 199 imprime los carriles de automóviles. Lo hace 
por medio de una cadena de PRINT AT, ya que es la manera más 
rápida de ejecución. Las líneas 299 y 230 comparan la posición del 
jogger con el contenido del vector en este punto, si el jogger y un 
automóvil coinciden, la acción pasa a la línea 35f, donde empieza la 
rutina de jogger atropellado. Las líneas 254 a 284 controlan el movi- 
miento de los coches usando las instrucciones de que dispone el 
BASIC de Sinclair para la rotación de vectores alfanuméricos. 

La variable TIEMPO se incrementa en la línea 296. La línea 300 
comprueba el valor de JD y, si detecta que es dos, el ordenador sabe 
que otro jugador ha conseguido cruzar. Se oye una bonita serie de 
tonos crecientes antes de que NEXT J, al final de la línea 349, envíe la 
acción a 4f, donde un nuevo corredor desafiará los coches. 

Si el jogger no ha conseguido atravesar (es decir, si JD no es 
igual a dos), el ordenador salta el resto de la línea 3Pf y va a la 310. Si 
J es menor que seis, el ordenador devuelve la acción a la línea 156, 
donde se borra el jogger, antes de ser reimpreso en 180. Si todos los 
joggers han conseguido atravesar, la línea 329 imprime «Este juego:» 
y el tiempo que han tardado; pone un 5 al final de la línea «Joggers a 
salvo:»; e imprime «LO CONSIGUIO!». La línea 330 le comunica el 
tiempo que ha tardado y la 34f envía el programa a la 626. 

La línea 620 compara el tiempo de este juego con la variable 
MEJORTIEMPO, alterando MEJORTIEMPO por TIEMPO, si TIEMPO 
es menor. Si MEJORTIEMPO es distinto de 194PH (lo cual ocurrirá la 
primera vez que intente jugar, si no consigue terminar la partida), el 
MEJORTIEMPO se imprime en la pantalla, por tanto usted puede ver 
lo bien que lo ha hecho. Un par de trinos rematan el programa a partir 
de la línea 620, la variable TIEMPO se iguala a cero y el programa va a 
30 para empezar una nueva partida. 

Si no ha conseguido ayudar a cruzar a todos los joggers, la rutina 
de la línea 359 entra en acción (líneas 290 a 234 con instrucciones 
IF/THEN). El bucle de 359 a 370 imprime el jogger intermitente en el 
punto donde ha sido atropellado, se oye un cierto sonido y es informa- 
do de que «LE HAN ATROPELLADO» y del número de joggers que 
han conseguido pasar (399). La variable TIEMPO se iguala a 19000, 
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por lo tanto no será impresa ni influirá en su MEJORTIEMPO. Si el 
tiempo no se incrementara artificialmente en este punto, usted podría 
conseguir un brillante MEJORTIEMPO dejando que le atropellaran en 
el primer carril. 

Una vez domine este juego, intente añadir más coches o invente 
sus propios vehículos. Unos pocos caballos, una o dos bicicletas o 
cualquier cosa que se mueva pueden mantenerle interesado por la 
pantalla. Cuando, a pesar de sus nuevas versiones, decrezca su inte- 
rés por JOGGER, canvie el programa según el segundo listado de 
este juego. En esta versión los joggers se mueven siempre. La encon- 
trará muy difícil y sugerimos reducir el número de vehículos o añadir la 
instrucción: 


195 BEEP .95,RND*5g 


para facilitar el juego disminuyendo su velocidad. ¡Buena suerte jog- 
ger!, debe cruzar sin tener ningún accidente. 
Cuando el programa está en marcha se ve así: 


Arenpo Pañliutrido: 101 4 
ad ad AaR e e > 
ab ad > > »h hare 
rada ee Aa A Re e be 
1 AQ ARARIAIAA De a 
* A DAAAGAALAAAA A . a. a 
RIA ARADAIAAR e a] 
Joggers restantes: 3 AXA 
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Joggers a salwo: 5 AAXA 
Tiddpo: Este Jugo. 438 
e ad 5 AA A > 
MEJOR TIEMPO HASTA AHORA: 4385 
e DeDe > >» > ho 
ve AA e HR A e e 1 
LO CONSIGUIO! 
» DA AA > DARA + 
HA NECESITADO 438 LATIDOS 
> APR AIRIS - > + 
Pe € +A > DADA ee 


Jo3gers restantes: Y 


Y éste es el listado del programa: 


La REHN 66 
Y 60 
530 FU 1 
40 PR A 
pd T 
ido: ' E 
AT 2,12; 
SO PRINT A 
antes; ",S-y 
50 PRINT A 26; 
?0 FOR Zzl y-1 
59 PRINT INK 2,"4";5: REM GRAPH 
ic A 
30 NEXT_Z 

199 PRINT AT 21,26;' “¡ATI2 
,26; 

110 FOR Zz1 TO S-y 

(489 PRINT INK 2, "A": REM GRAPH 
E 
130 NEXT z 
140 LET JA=16: Len JD=19 
150 PRINT_AT_JD,J 

52 LET YA= Das LiNKEYs= 8") - CINK 
yg="5" 

e YD=JD+(INKEY$="5") - (INK 
130 PRINT AT JD, JA; IN ZA 
190 PRINT AT 3/0, ¿In 55; a? 
3, INK 0; AS$;AT TN 
12,0; As TOO TARTAS 

$ AT 15,0; INK 2,08 


AND ASIJA 
A 
AND C5( 


a) 
c 
OD m0 
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Dz 
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Fr 0017 


m1 
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UA HOFTrTr 
ate --00 FO 


FIZA DIARIO MO 
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ps 


- "“NHEMSDOO-30041M0 


GIG06BTAGAS GRAMA ZO 
cu AAA 


H1_ DOw 
PO DNI IHiRrAR 
+ 
o ZA 
HD CO": HU ZXM a a 
OPONMDO 
¿ZDD 


ITODZ+UTMOHDA”- 
ra 


A) 
DDN O: 


o 0 


o E 
MOUNEREPRRERUERO UTN 0 O DONDE TO 
H 


-_ 


2 
T AT OJQ,JA; FLASH 1; _BR 
; : id .008,Z 


BM: DIGOMADAC. DN MMMM 


m 
o 


Dm 


INT AT _13,3¡Y4-1;" JOGGERS 


vu 


DIFCGIOJANE EFGOwWIDATOREA 
m 


PoOco0660G6DO UE 


aa ae A 
ET_Eg=" me a. 0» 


E] 


LET C$="%  aiaanana 
an a. " 
LET Diz "arar anar 5 e 
E 


1) 
G66N GOGO a 


On 


DATA 394 3343 58/5,25-94,68 
> ,36,231,255,102,0, 


9 DATA do 14d (186, DEE 254,10 
CATA 0,0.30,99,255,27,0,0 


á 
0 DATA 0,0,556,40,126,35,0,0 
0 DATA 2,0,38,581,255,34,0,0 


|) 


ha 


gg MN Aavabubo 
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520_ IF TIEMFO<MEJORTIEMPO AND T 
A lid THEN LET MEJORTIEMP 


PO 
e o Eo THEN_FPR 


INT_AT_4,2; FLASH 1; “MEJOR TIEMP 
O _HASTA_AHÓRA: _";MEJORTIEMPO 
649 FOR Z=S0 TU 3TEP - BEEP 
¿09,72: BEER .05,-Z: NEX 
553 CL5 
560 LET_TIEMPO=9 
570 60 TO 30 


50 PRINT ne 21.1;"Joggers rest 
antes: S- 

50 PRINT Ar 9,26; 

70 FOR Z=1 TO J- 


q039 PRINT INK 2;"Á";: REM GRAPH 
c 
98 NEXT_Z 
289 PRINTCAT 21,26;" “¡ATOa 
¿ HO; 
110'FOR Z=1 TO 5- 
¿129 PRINT INK 2;"ÁA";: REM GRAPH 
c 
130 NEXT z 
140 LET JYA=s16: LET JD=19 
150 PRINT AT JD/JA;” " 
155 LET_Zg=INKEVYS: IF Z4<"5" OR 
2$>"8"_ THEN LET_Z$=X$ 
109, LET JAS JAs (Z8n"S" AND YACZS 
121Z6="5" AND_JA>3) 
178 LET JD=JD+(Z$="5" AND JD>1) 
-(Z5="7" AND JD<21) 
178 LET X$2Z$ 
180 PRINT AT yD,yJ 
190 PRINT_AT_3,0; 
0, INK_0A$¡AT 5, 
12,0; INK 3;C46;AT 
SAT 15,0, INK 2;D 
200 IF'(JD=3 OR y 
+10 <>" " THEN_G0 T 
210 _IF_JD=S AND B 
HEN_GÓ_TO 359 
220 1F (JD=12 OR 
JA+1) <>" "THEN GO 


pm 


- UYEMOWO-JOINMO 


15] 


o 
DI UA E IO MI RO O O TO 


one 
660 Gr -GOMGGGAGEZO 


. 
[y] 
“JT 
3 
e 


Dm 


IF YO=1S AND DSIJA+1) <>" 

G0_TO 

LET As 31) +A$( TO 31) 

CET 65 31)+B$1 TO 31) 

LET C$ (2 TO +05 (1) 

LET 0$ 2 TO )+D$(1) 

LET TÍ =TIEMPO+1 

IF JO= EN FOR Z=1 TO 20 
¿01,Z: NEXT _Z: NEXT y 

IF JU<6 N GO TO 159 

PRINT 2;¡AT 1,1; "Tiempo, 
¿usgo; TIEMPO; " “¿AT 

¿5;AT ¡ FLASA 1; PAPÉR 

IGHT_1;" "LO CONSIGUIO!" 

PRINT 6_4;"HA NECESITAD 

IEMPO; TIDOS" 

0 TO 

FOR Z 20 

PRINT 0: %AL FLASH_1;_BR 
5 INK “7 BEEP .008,Z 

NÉXT_Z 


LON BRENT AT 10,8;"LE HAN ATROP 


L 

390 PRINT AT_13,3;J-1;" JOGGERS 
LO HAN CONSEGUIDO" 

409 LET TIEM 


INK RPER 7: BORDER 
ET x$="9" 

FOR A=1 TO 6 

LET ES5=CHR$_ (143+A) 
FOR B=90 To 7 

RERD C 

PORKE USR E$+B,C 

NEXT B 

NEXT_A 


LET TIEMPO=0: LET MEJORTIEM 


Ú=9E 
520 LET Asg=" A ad Dada 
ehe R a 


Ss 
MADONNA 


ma 


IMPRESO -JON ( 


I 


30 LET B$=" dede > > 
So ho a 
LET CS="4  aAaarana 
an a 
LET Dizcanaanranar A » 
a . + 
RETURN 


DATA 25,28,8,62,5,28,34,65 
DATA 0,80,36,231,255,102,0, 


PATA 240,144, 1535,255,254,10 
DATA 9,0,30,99,255,27,0,0 
DATA 0,0,56., 10,128,56,9, 
DATA_9,0,30.,51,255,34,0,U 
1F TIEMPO:MEJORTIEMPO AND T 
er jc THEN LET MEJORTIEMP 
Ú 
IF MEJORTIEMPO<>9E? THEN PR 


INT_AT_ 4,2; FLASH 1; "MEJOR TIEMP 
3 HASTA AHORA: _”; MEJORTIEMPO 


540 FOR _Z=50 TO 1 STEP -1: BEEP 
.05,2. BEEP ,05,-Z: NEXT Z 

550 UL5 

5560 LET_TIEMPO=0: LET Z4$="8" 
570 GO TU 30 


Desactive esta mina 


Este es un juego de muy difícil dominio ya que requiere controlar 
dos objetos de la pantalla al mismo tiempo. Su trabajo es limpiar la 
pantalla de minas y tiene una dificultad doble porque es una operación 
en dos etapas. Primero las minas deben ser desactivadas usando el 
inversor. Se consigue pasándolo por encima de una mina activada, 
pero atención: si lo pasa otra vez la mina se reactiva. El inversor se 
controla con las teclas «5» a «8». 

Además del inversor, verá en la pantalla el transporte. Pasándolo 
por encima de una mina desactivada la recoge, desapareciendo de la 
pantalla. Debe controlar el transporte de una manera muy cuidadosa, 
ya que si choca con una mina activada la operación habrá terminado. 
El transporte se controla mediante las teclas «5» a «8» con la:CAPS 
SHIFT pulsada a la vez. 

Hay 40 minas y puede escoger cinco velocidades de juego, por lo 
tanto tardará en encontrar aburrido este programa. Como puede ob- 
servar en la copia de muestra, le va a costar mantenerlo todo bajo 
control. 

Cuando ejecute el programa, la línea 30 envía la acción a la su- 
brutina de la línea 600, donde se definen los gráficos «A», «B» y «C». 
El «Z» de la línea 680 desencadena el RETURN de la subrutina de la 
línea 600. Después del RETURN, la línea 30 llama a otra subrutina en 
la línea 520, donde se imprimen las instrucciones: 


s0rzo DESAHCTIVE ESTA MINA evvco» 


35U_ TRABAJO ES LIBRAR LA PANTALLA 
DE MINAS. 

ES UNA OPERACION DE DUS ETAPAS, 
PRIMERO LA _ MINA DEBE _SER 
DESACTIVADA PASANDO EL INVERSOR 


GH. POR ENCIMA DE ELLA. 
EL_CONTROL DE ESTA _ OPERACION 
S3E_HACE CON LAS TECLAS S 8. 
LUEGO _ LA MINA DESACTIVADA DEBE 
3ER CARGADA POR EL TRANSPORTE 
A CONTROLADO CONICARPS SHIFT] 
A , 
EL_TRANSPORTE NO_DEBE CHOCAR 
CON UNA MINA ACTIVA. 
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ENTRE NIVEL DE DIFICULTAD 1-5 
(5=FACIL) 


PULSE 6 PARA PARAR. 


La rutina INKEYS$ de las líneas 540, 550 y 569 acepta solamente 
entradas válidas, rechazando las que estén fuera de los márgenes 
«1» a «6» y terminando el programa si se selecciona la «6» (560). La 
línea 574 iguala la variable SP a un valor relacionado con la tecla 
pulsada. SP controla la dificultad del juego. La línea 580 devuelve la 
acción a la línea 4f. 

La línea 49 ajusta los parámetros de pantalla. La tinta y el papel 
se convierten a 5 (azul claro), se borra la pantalla para establecer los 
colores y el borde toma el mismo color. Se cambia el color de la tinta a 
negro y la variable T$ se iguala a un espacio. Las líneas 54 y 60 inicia- 
lizan variables que controlan las posiciones del inversor y del transpor- 
te y el número de minas desactivadas. La rutina de las líneas 70, 80 y 
9f$ dibuja el marco en el que tendrá lugar la acción y la rutina de las 
líneas 199 a la 158 coloca las minas, asegurándose de que no se 
colocan unas sobre otras (136). Si esto ocurriera, habría menos de 49 
minas en la pantalla y el detector de «fin de juego» (actuando al final 
de la línea 37f si se han cargado todas las minas) no actuaría nunca. 

Una vez las minas dispuestas, impresas en rojo (véase el cambio 
de color de la tinta en la línea 99), la tinta vuelve a cambiar de color en 
la línea 155. La variable 1$ se usa para interpretar sus deseos de movi- 
miento. La primera sección de control (de 180 a 210) interpreta la 
información de las teclas «5» a «8» sin haber pulsado CAPS SHIFT 
para mover el inversor. La sección siguiente (de 220 a 26H) se encar- 
ga de las mismas teclas habiendo pulsado CAPS SHIFT. [Obsérvese 
que 1$ se toma en la línea 22f para ser traducido a su código (CODE) 
a fin de interpretar las teclas afectadas con CAPS SHIFT. Esta es una 
técnica muy útil para leer las teclas en este estado en cualquier punto 
de la pantalla.] Los resultados de estas lecturas se asignan a las varia- 
bles A, D, CA y CD, que se añaden a las posiciones actuales del 
inversor y del transporte (A y D para el inversor, y CA y CD para el 
transporte), inmediatamente las posiciones antiguas se borran con es- 
pacios (270). 

La variable N almacena un valor igual a los ATTRibutos de la 
nueva posición del inversor y la CN los del transporte. La línea 320 
reimprime los dos móviles y la 325 hace sonar un corto BEEP. Como 
puede observar, la longitud de este BEEP está relacionada con el fac- 
tor de dificultad que se haya escogido en un principio. Cuanto mayor 
es este factor, más largo es el BEEP producido en 325. Como usted 
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sabe, mientras suena el BEEP, cesa toda acción en el Spectrum. Así 
pues, usando una variable como ésta, puede regularse la velocidad 
del juego. Si encuentra el programa demasiado difícil, incluso con 
nivel 5, puede cambiar el nueve de la línea 570 a un valor menor. Si N 
se iguala a 49 o CN se iguala a 4f (330), el ordenador sabe que se ha 
estrellado contra la pared y el programa va a la línea 499, donde le 
informa que «SE HA ESTRELLADO CONTRA LA BARRERA ELEC- 
TRIFICADA». Las líneas 340 y 350 hacen los cambios necesarios en 
las minas (si su inversor se encuentra sobre ellas), desactivando 
minas o activándolas. Si el valor de CN es 42, el Spectrum sabe que 
ha tocado una mina activa con el transporte y va a la línea 449 donde 
se le informa: «SU TRANSPORTE HA GOLPEADO UNA MINA ACTI- 
VA»; con letras rojas intermitentes. 

Si ha cargado una mina en el transporte (ATTRibuto CN es 41, 
línea 370), la puntuación (S) de minas cargadas se incrementa en una 
unidad. Si S es igual a 40 (37f), el ordenador sabe que ya ha cargado 
todas las minas y la línea 470 le felicita: «LO LOGRO!!». Si no ocurre 
ninguna de las circunstancias descritas, la línea 380 hace volver el 
programa a la línea 160 para continuar el proceso. 

El resto del programa, de 4PP a 510, contiene los mensajes de 
final de programa y unas sinfonías de Spectrum. Una vez domine per- 
fectamente el juego, puede eliminar la línea 325 y ver que tal lo hace. 
Es la prueba definitiva. 


23 GO SUB $29: GU TO 520 
40 INK S APER S; CLS : BORDE 
RS: INK 0: LET Tgz" " 

SO LET 5=0: LET_X=16: LET Y=1 
E NN LET CX=16: LET Cvy=28: LET C 

= 

55 LET_A=1: LET _D=0: LET CA=1 

70 PLOT 4,4: DRAV 247,0 

30 DRAW 0,167: DRAW -247,0 

98 DRAW_0,-187: INK 2 

108 FOR I=1 TO 4U 

119 LET TX=INT (RND*30)+1 

120 LET TY=INT.(RND*18) +2 

130 1F SCREENS (TY,TX)="" THEN 
50 TO _110 

140 PRINT_AT TY,TX; "e" 

159 NEXT_I 

155 INK S 

160 LET_I$= E 

170 1F I$=' HEN GO _TO 278 

130 IF _l$="S"_ THEN LET A=-1: LE 
T 00; 60 TO 270 

190 1F_14="S" THEN LET Asl: LET 

D=8: GO TO 270 

200 IF _I$="6" THEN LET A=0: LET 

D=1: G0 TO 278 
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LET 
LET 
LET C 
LET 
INK_0; 
CS" 


“¡AT Y,X;T 
.5S,-5 


Az-1: 
Y=Y+D 
LET CY=CY+CD 


ET TG6=CHR$ 16 


LeT 
LET CA=0u:; 
BEEP 
INK 0;"LO LOG 


I=9 THEN LET CA=1: 
¿OX;5" 


7; 
“HA ELIMINADO 


INT_FLASH 1; 
A_ESTRELLADO CONTRA 


CODE I1$ 
=42 THEN LET T$=CHR$ 16 


P 35P,9 
N=40 OR CN=48 THEN GO TO 


1=8 THEN 


s0_TO 270 

O_TO 270 
N=ATTR 

INT INK 


ET CN=ATTR 
E 


G0_ TO 270 


Tu oo0cuo 
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R 
1) 
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F 


IF 1:10 THEN LET CA=0; LET 
'B 
1 


LET 


L 
Ea 
Q IF N=41 THEN L 


Y LET CXsCX+CA: 
Y IF N= 


LET Tg$= 
RG 1+" 


TACWwo QT 


Zoo3ooomooooo sos. -DOSZNOZIZET MT > 
ANOS INIOAS_ WSAHANHO DH. UNA EA 
a e Ai onza o 


PSAVNONNOFTOVTON 100 


210 IF I$="?" TMEN LET Ax0: 


D=-1: 

269, 1F I=11 THEN 
278_PRINT AT CY 
280 LET X=X+A: LET 


[o 
$: 
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ON [CAPS _SHIFTI 


+SA8. 

ANSFORTE NO_DEBE CHOCAR CON 
UNA MINA ACTIVA. 
S30_PRINT_'""“ENTRE NIVEL DE DIF 
ICULTAD 1-5. (S=FACIL)";**"PULS 
E 6 PARA PARAR.” 

s48 LET I4$=INKEYS 

5S0_IF 1$<"1" OR 18>"6" THEN GO 
TO s40 

s60 IF _I$="S" THEN STOP 

570 LET_SP=UAL 1$/9 

S50 GO TO 40 
1380 READ AS: IF As="Z" THEN RET 
s19 FOR I=0 TO 7 

520 READ N: POKE USR AS+I,N 

5638 NEXT _I 

549 G0_TO 580 

q? DATA "A",0,0,0,560,32,255,60 
660 DATA "B",35,35,255,60,60,25 
5,35,36 

$70 DATA ,0,0,245,254,254,25 
5,285,34 

sa DATA 


GRAFICOS: esA %k=5 m=0C 


Helicóptero 


Este es un programa para probar sus aptitudes de vuelo. Dispone 
de cuatro helicópteros y su tarea es borrar un grupo de líneas amari- 
llas. 

Las líneas se borran aterrizando sobre ellas. Primero debe aterri- 
zar en la más corta que vea, luego deberá seguir aterrizando en la 
más corta hasta borrarlas todas. Si hace una falsa maniobra perderá 
su helicóptero. Tiene cuatro helicópteros para completar la misión y 
cuantos menos utilice, mejor será su puntuación. 

Para pilotar estas pequeñas máquinas debe usar el «f» para ele- 
varse, el «5» y el «B» para moverse a derecha e izquierda. La grave- 
dad tiende a hacer que descienda el aparato. Su puntuación final está 
relacionada con la cantidad de combustible que ha consumido y los 
helicópteros que ha perdido. Si se estrellan todos los helicópteros 
antes de borrar todas las líneas, aparecerá el mensaje «No hay más 
helicópteros». 

La línea 1 pone el borde negro, la variable h se iguala a cero en 
15 (para la máxima puntuación, vease líneas 532, 535), antes de igua- 
lar la tinta a amarillo y el papel a negro (36). Después de esto, el 
programa va a la subrutina que empieza en la línea 610, donde se 
toman los datos de la línea 994 para construir el gráfico «a»: el peque- 
ño helicóptero que se puede ver en la línea 45. 

Después de definir el gráfico la pantalla se borra, estableciéndose 
el color negro. El bucle Je las líneas 59 a 74 imprime un sólido bloque 
amarillo. Se dimensionan dos vectores para contener y ordenar las 
líneas sobre las que deben aterrizar los helicópteros. El bucle «a» se 
ejecuta de la línea 1H a la 18H, usando el número aleatorio generado 
en la línea 119 y las instrucciones PLOT (159) y DRAW (166) para 
producir una base de aterrizaje. La rutina de las líneas 124 y 134 ase- 
gura que el vector «d» contiene diez líneas de distintas longitudes. 

La variable r se iguala a 1 en la línea 185. Esta significa la línea en 
la que debe aterrizar el helicóptero (cuando res 1, está apuntando a la 
línea representada por d [r]). Su variable de combustible, f, se iguala a 
25000 en la línea 19/. Además de controlar el combustible, f fija el 
tono del generador de sonido de la línea 249 (dividido por 1400). 
Como observará, esto produce un sonido que se identifica con la ac- 
ción del helicóptero. El combustible se decrementa por 21 en las lí- 
neas 25f y, si se está elevando, en la 280. La variable p, su coordena- 
da horizontal, se iguala a 16 en la línea 214 antes de que su pequeño 
helicóptero empiece a funcionar en la línea 229. 

La línea 245 imprime los aparatos en reserva (usando 1$ definido 
en la línea 45 como tres) en la esquina inferior derecha de la pantalla, 
y —después de decrementarse el combustible en la línea 254 e impri- 
mir su volumen en la parte inferior izquierda de la pantalla— su heli- 
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cóptero se borra, antes de reaparecer. La variable u (inicialmente 
igualada a 1 en 200) controla su desplazamiento vertical (cuanto 
mayor es u, más bajo está) y las líneas 275 a 294) leen sus intenciones 
en el teclado («f)»: elevarse, «5»: moverse a la izquierda, «8»: mover- 
se a la derecha), antes de que el programa vuelva a 224 para reimpri- 
mir el helicóptero en su nueva posición. 

En la línea 23f se detecta si hay un aterrizaje y si lo hay el progra- 
ma se dirige a la línea 49fP dónde se comprueba donde ha sido. Si no 
ha aterrizado en la línea más corta— o sea, p distinto de d(r)— se oye 
el ruido producido por el accidente (BEEP .P1, —1P) y se le restan 
1909 unidades de combustible. El helicóptero se imprime en modo 
inverso (412) y se oye otro ruido (413) cuando el helicóptero desapa- 
rece (414). Se observa el contenido del vector 1$, si está vacío, el 
ordenador sabe que se le han acabado los helicópteros. Recuerde 
que I$ fue igualado a tres helicópteros en la línea 45. La línea 416 
elimina un helicóptero del final de este vector después de cada error 
de aterrizaje, por lo tanto cuando I$ queda vacío se sabe que se han 
usado los cuatro helicópteros (el cuarto no forma parte del vector 
cuando éste es inicializado). La línea 418 devuelve la acción a 249, 
donde arranca un nuevo helicóptero para cumplir su misión. 

La línea 499 comprueba si el aterrizaje ha tenido éxito. Si es así, 
se saltan todas las malas noticias de las líneas 4/5 a 418 y se va 
directamente a 42f, donde se borra el helicóptero y se borra la parte 
alta de las líneas amarillas (425). Un poco de sonido le permite recu- 
perar el aliento y la variable r (que cuenta el número de líneas) se 
incrementa. Si r es menor de 11, todavía quedan líneas para aterrizar. 
Si no, se borran los helicópteros no usados (49H) y el combustible se 
incrementa en 1000 unidades por cada helicóptero no usado, con ello 
se tiene en cuenta su precisión en la puntuación final. La nueva cifra 
de contenido de combustible se va imprimiendo a medida que se in- 
crementa (520). 

La puntuación máxima se actualiza, si es preciso, en la línea 532 
y se imprime en la próxima antes de que el programa vaya a 318 para 
anunciar que se ha terminado la partida. Si no ha conseguido borrar 
todas las líneas (es decir, si r es menor de 11), aparece el mensaje 
«No hay más helicópteros». Las líneas 334 y 344 esperan hasta que 
usted retira su dedo del teclado cuando termina la partida y vuelve a 
pulsar, con ello se sabe que usted está listo para emprender otra 
aventura. Si es así, el programa va a la línea 4f, borrando la pantalla 
(pero sin redefinir los gráficos ni la variable h de puntuación máxima) y 
dando paso a una nueva misión con sus cuatro nuevos helicópteros. 
¡Buen vuelo! 
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2-HARTNELL 


420 PRINT AT u,p;" " 
425 PRINT AT 10+r,0;" 


439 FOR a=9 TO 20 


440 BEEP .01l,a 

450 NEXT a 

460 LET r=r+1 

470 IF r<11 THEN_GO TO 200 

489 FOR a=1 TO LEN L$ 

490 PRINT AT 21,26+3;"N" 

500 BEEP .5,a+10 

510 LET f=f+a+1000 

520 PRINT AT 21,0;"6a5: ";¡f 

330 NEXT a 

S32 IF _h<f THEN _LET haf 

535 PRINT INVERSE 1;AT 21,14;"G 

35 Maximo: “¡h 

549 GO TO 319 

510 FOR b=4 TO ? 

520 READ c 

630 POKE USR "a"+b,c 

640 NEXT b 

659 RETURN 

300 DATA 4,85,8,28,62,62,20,34 
Mazurca 


En MAZURCA se le desafía a la cacería de su vida. El programa 
está inspirado en los juegos Duck Shoot, donde se debe disparar a 
patos y otros objetos que pasan delante de usted. 

La versión computerizada del juego tiene nuevos riesgos. En MA- 
ZURCA se mueven frente a usted varias filas de objetos, parcialmente 
tapados por cuatro barreras que se mueven en dirección contraria. Su 
deber es tocar tantos objetos como pueda sin afectar las barreras. 
Debe mover su pistola (gráfico «H») usando las teclas «5» y «B», ob- 
teniendo desplazamientos en la dirección indicada en las citadas te- 
clas. Su gatillo es la tecla «F». En la pantalla debe haber sólo una bala 
a la vez. Dispone de un número limitado de balas y las que quedan 
están indicadas por la longitud de la línea de la parte inferior de la 
pantalla. 

Como puede observarse en la muestra impresa, el juego dispone 
de una gran cantidad de objetos móviles que crean una excitante ima- 
gen. No obstante, esto no es todo. De tanto en tanto un pato atraviesa 
volando la pantalla, algo parecido al intruso galáctico que aparece en 
ciertos juegos de acción. Puede obtener un premio de seis puntos si lo 
abate, pero si no lo consigue se le restarán quince balas. Es bastante 
fácil tocarlo, ya que el pato vuela por debajo de las barreras, como 
puede ver en la muestra. 


34 


La subrutina de la línea 600 se llama desde la 29. Esta rutina 
define los gráficos: «A», «B», «C», «D», «E», «H», «l» y «J». Cuando 
la línea 609 (READ C$) lee «Z» en la línea 750, se activa el RETURN. 
Una vez de vuelta a la línea 30, el papel y el borde se hacen amarillos 
y se borra la pantalla para establecer este color. La línea 35 hace la 
tinta negra y el programa salta a la línea 500, donde se imprimen las 
instrucciones: 


LALALA LALALA MAZURCA AAA ALLA 
DEBE DISPARAR A LOS OBJECTOS QUE 


SE MÚEVEN, EVITANDO LAS LINEAS 
NEGRAS. LÁS LINEAS MAS ALTAS 
DAN UNA PUNTUACION MAS ELEVADA» 
MUEVA LA PISTOLA CON LAS TECLAS 
Sar OTÍBARE CÓN LA TECLA E 
SÓLO PUEDE VERSE UNA BALA A LA 
VEZ_Y EL NUMERO DE BALAS 
RESTANTES ESTA EXPRESADO POR 
LA LONGITUD DE LA ER 
INFERIOR. CADA VEZ QUE UN PATO 
LLEGA AL EXTREMO DE LA PANTALLA 
SE LE DEDUCEN 15 DISPAROS. 


PULSE [Y] PARA EMPEZAR Y 
[NI PARA PARAR 


Después de esto se le pide que entre «Y» para empezar el juego. 
Esta instrucción se repite al final de cada juego, por tanto usted puede 
abandonar el juego en este punto respondiendo «N» o «n». Cualquier 
otra tecla reiniciará el programa. Al repetir el juego no se vuelven a 
inicializar los gráficos de la línea 6PP. 

Al volver a la línea 4P se inicializan las variables y se dimensiona 
el vector que contendrá los objetivos móviles. Los bucles desde la 
línea 6f a la 10H asignan los objetivos a este vector de una forma 
aleatoria. Se imprimen con la línea 95 y la línea 97 crea un tono cre- 
ciente mientras se inicia el juego. La variable B del final de la línea 1PP 
controla la longitud de la línea situada debajo de usted. Línea que se 
corresponde con el número de disparos de los que dispone. B se de- 
crementa en 21f y la línea de pantalla se despunta con el PLOT 
OVER. AS (5) contiene las barreras móviles y de AS (1) y A$ (4) los 
objetos sobre los que debe disparar. La línea 1P7 suena para infor- 
marle de que todo empieza a funcionar. 

El bucle | de las líneas 11f a 35f es la parte principal del progra- 
ma. Controla el movimiento de los objetos (igualando T$ al primer 
elemento del vector en la línea 124 y recolocándolo al final del vector 
en 130), imprimiéndolo (14H) y escogiendo diferentes tintas para cada 
línea (la primera azul, la segunda roja, la tercera magenta y la cuarta 
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verde). Después de esto, la línea 174 borra la posición donde estaba 
la pistola y la 189 cambia el valor de la posición horizontal de acuerdo 
con la tecla pulsada (199 ajusta la posición si se intenta pasar los 
límites de la pantalla). 

Se imprime la pistola en la línea 204. Si B es cero, se han usado 
todas las balas y la acción va de 2P5 a 436, donde se le comunica que 
se ha quedado sin munición. La línea 21f es la que comprueba si 
puede disparar (si F es igual a uno, no hay otra bala moviéndose, por 
lo tanto puede disparar). La línea 214 inicializa la coordenada horizon- 
tal de la bala (FX) igual a la posición de la pistola (G). F es la coorde- 
nada vertical de la bala, por lo tanto (F, FX) es la posición donde debe 
imprimirse y borrar la bala. La línea 240 decrementa la coordenada F 
(lo que tiene el efecto de mover la bala una línea hacia arriba). 

Los puntos por donde pasa la bala son observados en la línea 
25f. Si SCREENS (F, FX) está vacío, la bala va a través del aire y no 
toca ningún objeto. Si se encuentra algún contenido en SCREENS (F, 
FX), se examina para discernir si se trata de la barrera (las líneas 269 
y 265, si P es cinco, es la barrera). Si ha tocado la barrera, la partida 
se termina y el ordenador va a la línea 444 para comunicarle la noticia. 
Si no ha tocado la barrera, ha tocado algo y este algo no puede ser 
más que uno de los objetos a los que apunta. La línea 274 le da una 
puntuación relacionada con la altura del objeto abatido (cuanto menor 
es el valor de P, más alto está el objeto en la pantalla). Si ha tocado 
algo, la bala debe parar y para ello se iguala F a uno (véase el final de 
la línea 279). Si ha tocado el pato, P será igual a seis y usted recibe un 
premio de seis puntos y la variable D se iguala a O. El programa salta a 
30 si ha tocado un pato. Si no, se imprime la nueva puntuación inter- 
mitentemente mediante la línea 275 y el elemento del vector tocado se 
cambia a un espacio, por lo tanto desaparece el objeto. 

Si no ha tocado nada (por lo tanto no se llega al GO TO 3P4 del 
final de la línea 280), la línea 299 imprime la bala. Aproximadamente 
cada 5f pasos de programa la línea 304 genera un nuevo pato, si no 
hay otro en la pantalla. La línea 324 mueve el pato y la 330 comprueba 
si ha llegado a la parte derecha de la pantalla. Si es así, el pato se 
borra, D se iguala a cero (la condición de «no pato») y se restan quin- 
ce balas de su munición, borrándose una parte de la línea situada 
debajo de usted. La última parte de la línea 334 (GO TO 35P) se salta 
la impresión del pato en 346. La línea 350 finaliza este bucle principal. 

Recuérdese que A$ (5) contiene las barreras móviles. En la línea 
366 T$ se iguala al elemento final de A$ (5), que se mueve al principio 
del vector en 376. Esto es lo contrario de lo que se hace con el resto 
de los vectores A$ y, por lo tanto, las barreras se mueven en dirección 
opuesta y a la misma velocidad que los objetivos. 

La línea 389 imprime la barrera y la 394 devuelve la acción a la 
línea 11f, donde vuelve a empezar el bucle principal. Si ha tocado 


36 


la barrera se activan, las líneas 4PP y 424 (P es igual a cinco, desde 
Una parte anterior del programa). Después de informarle de la situa- 
ción, el programa va a 454 para imprimir su puntuación. Si se le acaba 
la munición (es decir, si B llega a cero) se activan las líneas 43f y 449, 
apareciendo en la pantalla el mensaje «NO LE QUEDAN MAS 
BALAS». Después de los mensajes de final de partida, vuelve a apa- 
recer la página del título y si entra cualquier tecla que no sea «N» o 
«n», el juego se reanuda. 
Aquí tiene una muestra del programa en acción: 


Y éste es el listado: 


Y 60 SUB_69u 
E PAPER 5: BORDER 6: CLS 
35 INK 0: GO TO_S09 
40 LET G=16: LET F=1:; LET 5=0 
59 LET FX=0: DIM A$(5,32): CLS5S 
59 FOR I=1 TO 4 
79 FOR Y=1 TO 32 
80 LET A$(1I,J)=CHR$ (INT (RND+* 
5) +144) 
20 NEXT y 
95 PRINT AT_Ix3,0;A$(1) 
97 BEEP .4,1Ix 
109 NEXT _I: LET B=256 
102 LET D=0: DR 255,0 
LS LET ag$(5)=" mora, 
107 BEEB T9 
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GRAFICOS: 


Alfabatalla 


En este inusual juego usted tiene el control de un helicóp- 
tero verde mientras que el Spectrum se encarga de un caza azul. El 
objeto de la batalla es la posesión del alfabeto. Sus letras están a la 
izquierda de la pantalla y las del ordenador a la derecha. 

Su helicóptero se mueve horizontalmente mediante las teclas «5» 
y «8» y verticalmente con «w» y «z». Debe posicionarse en frente de 
una letra no intermitente del enemigo. Entonces, usted pulsa «o» y la 
letra correspondiente de su lado empezará a parpadear. La letra del 
enemigo desaparecerá, su puntuación se incrementará y su aparato 
será transportado a la derecha de la pantalla para iniciar otro ataque. 
Puede pulsar más de una tecla a la vez (ya que se usa IN en lugar de 
INKEYS$ para leer el teclado, líneas 419 y 428), por lo tanto puede 
obtenerse un movimiento en diagonal. Mientras usted hace todo esto, 
el ordenador hace acciones parecidas para robar sus letras. 

Volar en frente de las letras y pulsar «b» es un método para obte- 
ner letras. Hay otro. Si el caza del ordenador está situado en frente de 
Una de sus letras no intermitentes, usted puede situarse en la misma 
línea y disparar con la tecla «o». El ordenador tratará de hacer lo 
mismo, por lo tanto la acción se mantiene muy interesante. 

El juego termina cuando han sido capturadas todas las letras de 
un contendiente. Una vez terminado, el ordenador muestra la puntua- 
ción (tenga presente que el ordenador le llama «humanoide»). 

Las líneas 14 a 154 definen los gráficos (se usan las letras «a», 
«b», «C» y «d») leyendo de los datos (DATA) de la línea 9f. Se di- 
mensionan dos matrices, p y t; se distribuyen en cada una 22 letras del 
alfabeto posicionadas aleatoriamente y se imprimen en la pantalla. 

La posición de su helicóptero se define por los valores de u y p. La 
coordenada vertical (p) se inicializa con el valor 29 (véase línea 294) y 
la horizontal una línea más arriba de donde se ha impreso la última 
letra. La posición del caza del computador se establece de forma simi- 
lar respecto a su última letra impresa, usando como coordenadas a y t 
(que empieza en 1 en la línea 31P). Las líneas 414 y 429 leen el tecla- 
do, usando IN como ya se ha mencionado, y su aparato se imprime en 
436. Si ha decidido capturar una letra o disparar al caza del computa- 
dor, la línea 449 pasa la acción a la 58P, la cual a su vez dirige el 
programa a la subrutina de la línea 1954 que dispara su arma-laser. Si 
a es igual a u en la línea 44f), el programa va a 7Pf para capturar la 
letra e incrementar su puntuación. Si su aparato se encuentra total- 
mente a la izquierda de la pantalla, p será igual a 1 y el ordenador irá 
igualmente a 7/9 a hacer el mismo trabajo citado. 

La línea 469 borra la posición actual del caza del Spectrum y la 
siguiente rutina se utiliza para determinar la nueva posición. La varia- 
ble que controla la posición vertical del caza (a) se cambia en la línea 
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486 y t se cambia en la siguiente para mantener su posición cercana a 
la de su helicóptero. Las líneas 619 y 624 añaden cierto componente 
aleatorio al movimiento del caza. 

La línea 659 reimprime el caza en su nueva posición y al principio 
de 66/ se determina si el caza le disparará o no, enviando el programa 
a 100/ si decide hacerlo. Sit es 29, el ordenador sabe que está com- 
pletamente a su lado de la pantalla, por lo tanto envía la acción a 114P, 
donde se captura la letra amenazada. Se borra la letra de la misma 
altura, se ejecuta la subrutina de la línea 80f para añadir sonido al 
juego y se coloca la letra intermitente correspondiente. Si la puntua- 
ción conseguida por usted (s) y la conseguida por el Spectrum (x) 
suman 22, la partida acaba y la línea 735 redirige el programa a 1249, 
donde se borra la pantalla antes de mostrar el resultado de ALFABA- 
TALLA. La línea 745 borra el caza e iguala a f las variables p y u, 
antes de volver a 44f para empezar de nuevo. 


10 REM Alfabatalla 

100 FOR azi TO 4 

110 FOR b=0 TO 7 

120 READ c 

130 POKÉ USR CHR$ (143+a)+b,c 
140 NEXT b 

150 NEXT a 

208 DIM p (2,22) 

205 DIM t (2,22) 

210 FOR p=1 TO 22 

215 FOR f=1 10 2 

220 LET esINT (RND*22) 
¿230 1F pif,e+1)>8 TMEN GO TO 22 
240 LET p(f,e+1/ =P 

258 PRINT INK 6;AT e, (f=2)*31;C 
HR$_ (64+p) 

255 LET_t(f,p)=e+1 

260 NEXT f 

270 NEXT Pp 

238 LET u=t(2,22)-1 

298 LET p=29 

300 LET a=t(1,22)-1 

310 LET t=1 

320 DIM h (2,22) 

338 LET s=0 

340 LET x=0 

200 PRINT AT U,Jp;"  * 

410 LET p=p+(IN 61433<>255) * (p< 
29) -(IN_63486<>255) 

420 LET uU=U+(IN_65278<>255) + lu< 
21)-(IN_64510<>255)*(U>0) 

430 PRINT AT_U¿P; INK 4;"44" 
440 IF IN S7342<>255 AND p>t TH 
EN¿S0 SuB 580: 1 a=u THEN GÓ TO 
450 IF p=1 THEN GO TO 700 

460 PRINT AT a,t; 
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1060 DRAW OVER 1; INK S; (t-p)%89, 


=1 
IF u=a_THEN LET a=(u=0) 
TO 765 


Ss 
INT AT 11,8;"PARTIDA ACAB 
1 


NT AT 19,0; 
INT ¡¿pecreUn vo 
R 3= RES 


Air? TAB 29;x""humanoide " 


MOD Dro 


UETANANS daa) 
XH 

342 
Ar 


POV0OJ DARPOWPEDOOONJDMNRLN= MURO DS 
UZUNUDV DOG 


00568 060640969 :1600660060 1 CGE 


NEXT_a 
PRINT TAB 29;¡s 
IF INKEY$<>"" THEN GO TO 13 


IF INKEYS$="" THEN GO TO 132 
RUN 


PRPRREPRERRRRPP DARA PARRA ARA RRA  A 


SUD 


POR 
o a 
o mw 
c0u 


Pared 


Esta es una versión llena de colorido del clásico «Breakout», 
donde se trata de atravesar una pared de ladrillo usando una pelota de 
diamante de cantos muy vivos. Como verá al ejecutar este juego, el 
gráfico «A» ha sido redefinido para parecerse a unos ladrillos. De esta 
forma, la pared que debe derribar parece muy real. Dispone de 12 
pelotas y el movimiento de su raqueta se controla con las teclas «5» y 
«8» para ir a la izquierda y a la derecha respectivamente. La puntua- 
ción se muestra continuamente y se actualiza cuando es necesario. 

La línea 15 pone el borde y el papel rojos y la tinta blanca. El 
marco, dentro del cual se juega, se imprime con la línea 24 (la parte 
superior) y el bucle de la 36. Su color es verde. (No es en absoluto 
necesario mantener estos colores. Distintos aparatos de televisión 
reaccionan de forma diferente al Spectrum y combinaciones que dan 
una buena calidad de imagen en unos no la dan en otros. Le recomen- 
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damos, pues, que experimente con su aparato.) La variable S (puntua- 
ción) se iguala a cero en 35 y, A y B (que controlan el vuelo de la bola) 
se inicializan a uno en esta misma línea. Las líneas 44 y 42 son bucles 
que definen los gráficos de los ladrillos y de la bola, usando las instruc- 
ciones de datos de 21f y 215. 

El siguiente bucle, de la línea 45 a la 55, imprime los ladrillos. La 
línea 55 consiste en 28 gráficos «A». La línea 5f escoge un número 
aleatorio para determinar el color de cada fila de ladrillos. La segunda 
parte de dicha línea comprueba que el color escogido no sea el rojo, 
ya que, si fuera así, se confundiría con el papel. Si se confirma que ha 
sido seleccionado el rojo, se salta otra vez al inicio de la línea para 
escoger otro color. 

La línea siguiente (6/) determina la posición horizontal inicial de 
la bola. La bola se imprime en X, Y y las variables usadas para borrar- 
la (DX y DY) se igualan a X, Y en esta línea. Si Y es mayor que 28 o 
menor que 3, la bola habrá golpeado un lateral y la línea 65 envía la 
acción a la 155 donde se invierte la dirección del movimiento (para 
simular el rebote de la bola en la pared). 

Si X es menor que 2, la bola ha llegado a la parte superior del 
marco y la línea 7f la hace rebotar hacia abajo. La línea 75 examina la 
posición que ocupará inmediatamente la bola. Si encuentra que es un 
ladrillo, va a la subrutina de la línea 125, que hace el ruido del ladrillo al 
romperse y cambia el valor de B, que se usa para incrementar el valor 
de Y. Si X es mayor que 2P, la bola está en el fondo del marco. La 
línea 84 examina este extremo y comprueba si la raqueta está en una 
posición correcta para devolver la pelota. Si es así, se produce el soni- 
do del rebote (BEEP .4P8,1P) y se multiplica por menos uno la variable 
A que controla el cambio de la posición vertical de la pelota. 

La primera parte de la línea 85 usa las variables DX y DY para 
borrar la anterior posición de la bola y ésta se imprime usando X y Y. 
La línea 94 imprime la raqueta. Véase el espacio en blanco dejado a 
ambos lados de la misma, que permite borrar automáticamente la po- 
sición anterior. La rutina de la línea 95 lee el teclado usando el sistema 
INKEYS$ y cambiando el valor de N, que determina la posición de la 
raqueta. 

La posición de la bola se actualiza en la línea 195. Si X es mayor 
que 21 (línea 116), el ordenador sabe que la bola ha pasado la línea 
de la raqueta y ha caído al fondo. La subrutina de la línea 165 imprime 
el número de la bola, la variable del número de bola (Q) se incrementa 
en 1 y se genera un sonido de nueva bola en la línea 175. En 18f se 
comprueba el número de bolas usadas. Si es menor que 12, el progra- 
ma cae en la próxima línea. Si es igual a 12 aparece el mensaje «PAR- 
TIDA ACABADA» intermitentemente y con una gran variedad de colo- 
res. A la vez suena una música de acompañamiento a la intermitencia. 
Después de este brillante final, empieza un nuevo juego. 
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Si Q no ha pasado de 12 se genera una nueva posición de inicio 
para la pelota. La última línea de la pantalla se borra totalmente para 
eliminar la última posición de la raqueta y la dirección de la bola (hacia 
arriba a la derecha o a la izquierda) se determina por el valor dado a M 
en la línea 185 e incorporado a la variable B en la línea 2Wf. La línea 
245 devuelve la acción a la 69, donde se repite toda la acción descrita. 
Las dos líneas finales del programa —21f y 215— contienen los datos 
para los ladrillos y la bola respectivamente. 


12 BSHDER “$? PAPER 2: INK 7: C 


IF Z=2 T 
T 


“: NEXT_ON 
50 LET Nz=15: LET X=20: LET Y=1I 
NT” (RND*10) +5: LET DX=X: LET DY= 


E IF Y>23 OR Y<3 THEN 60 SUB 
70 IF X<2 THEN LET Aa-A 


78 IF SCREENS (X,Y)<>" " THEN 
60 SuB_125 

80 1F X>20 AND (Y=N+2 OR_Y=N+1 
OR Y=N+3) THEN LET A=-A: BEEP . 
005,19: LET YaY+1 

88 PRINT AT DX¿DY;" "¡AT X,Y;" 
e": LET_DX=X: LET DYxe 

20 PRINT AT 31.N;" A 

95 LET N=N+C(INKEYS="8" AND N<= 
26) -(INKEYS="S" AND N>0) 

105 LET X=X-A: LET Y=Y+B 

110 IF x>21 THEN G0 TO 16 

115 PRINT AT 0,3; INVERSE 1;"PU 
NTUACION: “¿S: ÍNUERSE O 

128 60 To 65 

125 BEEP_.008,20 
¿490 PRINTUAT OM ¿DY ¡% “AT X,Yi" 

135 LET A=-1 

140 LET S=5+1 

145 RETURN 
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20; INVERSE 1;"B 
$e 0 ? 


.008,309 

ET Bx=1-2k(Y>28 OR Y<2) 
INVER 

T 0=0+1 


EEP 
ETURN 
PRINT_aT_9 
¿d: 


* (M<.5) +B+ (M>=.5) 
, 
1 
N 
N 


HA 10 

WSNSOn0-N-0 

RODA - 1540 

ANNUNAZOAA 
AH 
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Conducción 3-D 


Este corto programa es muy efectivo y, una vez lo haya ejecutado 
algunas veces, lo encontrará muy interesante. Usted conduce por una 
carretera formada por dos líneas que convergen en el horizonte. 
Usando las teclas «5» y «8», intentará mantener su vehículo dentro de 
los límites de la carretera. También puede cambiar de velocidad usan- 
do la tecla «1». 

El programa empieza definiendo ciertas variables (o, p, i$, q, d y r) 
y haciendo el papel y el borde negros y la tinta blanca. La línea 35 lee 
el teclado («5» y «8») multiplicándolo por la velocidad (i). En la línea 
44 p se suma a d (inicializando previamente a cero en 25) y se usa 
para determinar las coordenadas de las líneas en la subrutina de la 
línea 109 que representa la carretera. La variable o es su posición 
horizontal en la pantalla (véase la línea 7/) que se calcula en función 
de p en la línea 45. Su velocidad varía aleatoriamente en la línea 54 si 
p está entre 12f y 14P. La pantalla se borra en 55, antes de reimprimir 
la carretera en la subrutina de la línea 1PP. A pesar de que la pantalla 
se borra continuamente para ser impresa de nuevo, la instrucción 
DRAVW se ejecuta tan rápidamente que el parpadeo es mínimo. 

La línea 65 comprueba si ha tocado los extremos de la carretera 
y, si lo ha hecho, envía el programa a la subrutina de la línea 154. Su 
vehículo se reimprime en la línea 7f y la distancia recorrida (s) se 
incrementa en un valor relativo a la velocidad, imprimiéndose a conti- 
nuación en la pantalla. 

La línea 77 permite variar la velocidad (si d es igual a cero) y 84 
imprime una línea en la parte superior de la pantalla que actúa como 
velocímetro. La línea 9f le reenvía a la 35 para seguir conduciendo. La 
subrutina de las líneas 190 a 149 utiliza las instrucciones PLOT y 
DRAW para dibujar la carretera en la pantalla. 

Si desea mejorar el programa, podría cambiar la línea 74 por un 
gráfico definido por usted, en el que se representara un parabrisas con 
un volante. 


1 REM Conduccion 3-D 
Cs 3 INK 7: SOñSER 0: PAPER 0: € 

S LET o=1 LET s=0 

19 LET p= 

1S LET i=4 

20 LET 3:30 

25 LET d=09 

30 LET r=200 

35 LET p=P-(1+2) + ((INKEYS$="3") 
-(INKEY$="5")) 

40 LET p=p+d 
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Velocidad 110 kmh 
1,38 kilometros 
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Velocidad 290 km/h 
5.57 Kilometros 


Pánico en Noruega 


Una vez haya conseguido óptimos resultados en CONDUCCION 
3-D, puede medir sus fuerzas con otro programa de conducción, PA- 
NICO EN NORUEGA. En este programa, usted conduce en Noruega 
a través de una serie de paredes y túneles, algunos de ellos a través 
de montañas. Verá los muros avanzando hacia usted después de una 
curva obligándole a retrasar su camino. En este programa cuesta un 
poco aprender a «ver» los gráficos, pero una vez lo consiga lo encon- 
trará un buen examen de conducción y de habilidad en el manejo de 
las teclas «5» y «B». 

El vector a$, dimensionado en la línea 18, contiene las nueve 
posiciones distintas que adoptan las paredes cuando se le aproximan. 
Los gráficos se apartan y se hacen mayores a medida que se acercan, 
debido al cambio de perspectiva. La variable t (línea 7/P) determina su 
posición inicial antes de imprimir las paredes en el bucle b (líneas 94 a 
136). Su puntuación, s, se incrementa en la línea 197 y la 124 lee el 
teclado («5» y «8»). La lectura se modifica en función del elemento de 
a$ impreso y del valor de t (que no puede exceder de 21 para que 
quepa en la pantalla). 

Si en la línea 144 se descubre que t tiene un valor situado entre 
13 y 9, se habrá estrellado y el programa irá a la rutina de la línea 284 
donde se imprime su puntuación y se le ofrece un nuevo juego. Si 
después de una ejecución del bucle, no se ha estrellado, la variable ¡ 
(que se inicializa a uno en la línea 5) se iguala al valor negativo de su 
propio contenido (es decir, de 1 cambia a —1 y de —1 cambia a 1) y se 
Usa para determinar la nueva combinación de colores de PAPEL- 
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BORDE-TINTA de su próxima carretera. Las rutas con paredes amari- 
llas y entorno negro representan túneles, las otras combinaciones co- 
rresponden a carreteras al aire libre. 

Una vez familiarizado con el juego, puede añadir un registro de la 
puntuación máxima y quizás algún método para variar la velocidad de 
su vehículo. El mejor punto para iniciar esta modificación es el bucle b, 
incorporándole una instrución STEP. 


6: INK_0: CLS 
RINT AT 11,8;"Puntuacion " 


RINT AT 18,7;"Pulse alguna 
RUSE Y 
N 


1 REM Norway panic 
S LET iz=1 
us ? BORDER 4: INK 0: PAPER 7: C 
19 DIM a$(9,10) 
20 FOR az1 10 9 
30 RERD a$ta) 
40 NEXT a 
So DATA " 0,0 12m 
pl 
A “0 
nl 
5s LET 5=1 
60 LET a=9 
70 CET t=INT_(RND*22) 
¿30 PRINT AT 21,14; 1NK 2;"esee 
9u FOR b=1 TO 12 

199 PRINT AT a+b,tiaslINT ((b/1 
. +e 

1058 BEEP 1/5,b 

107 LET s=3+4: PRINT AT 0,0;s 

110 PRINT AT a+b.0;"" 

120 LET t=t-((INKEVS="8S")*(t>0) 
-CINKEY4="5") 4 (1<21)) + (INT (b/4) 
J 

138 NEXT b 
¿342 1F tr14 OR t<9 TMEN 60 TO 2 

169 LET is-i 
Algo 3 1 THEN PAPER 0: BORDE 

189 IF THEN_PAPER INT (RND+* 
73+1: 28 R 4; INK 0 

198 CL 

195 60 se 

200 FO 1 TO 20 

205 LE INT" (RND*S): IF n=2 T 
HEN 60 25 

210 Pa Mm: CLS 

220 NE 

225 PA 

230 P 

Ss 

235 P 

tecla 

240 P 

250 RU 


UdRMUO VOUVP?-ZODIWW+ OO 
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Carrera mortal 


¿Podrá eludir al temible reptante verde que aparece en este pro- 
grama? 

Se crea un laberinto rectangular en la pantalla. Usted se encuen- 
tra a la izquierda del mismo y el reptante sale de un punto indetermina- 
do. Usando las teclas «5» y «8» para moverse a izquierda y derecha 
respectivamente y «w» y «z» arriba y abajo, debe ayudar al pequeño 
personaje a llegar a la parte derecha del laberinto. 

La línea 5 activa el generador de números aleatorios y las líneas 
10 a la 39 hacen el papel y el borde negros y la tinta amarilla. La línea 
46 envía la acción a la rutina de inicialización de la línea 59M, donde se 
toman los datos para los dos gráficos (el hombre y el reptante). Una 
vez definidos los gráficos, el programa vuelve a la línea 50, donde 
aparece una función para obtener números aleatorios. Se borra la 
pantalla en la línea 55, activándose el color de papel definido en la 
línea 34. Se inicializan dos variables: x (el número usado para hacer 
aberturas en el laberinto en las líneas 168 y 170) y s (su puntuación 
inicial, que se decrementa en la línea 245 cada vez que se ejecuta el 
bucle principal). 

La línea 190 imprime una línea gruesa amarilla en la parte supe- 
rior de la pantalla y el bucle de 114 a 139 imprime líneas verticales de 
color azul y una última de color amarillo (125). La línea 140 completa 
el laberinto con otra línea gruesa amarilla en la parte inferior de la 
pantalla. 

En este punto se ejecuta la función a, imprimiendo espacios en 
blanco y puntos aleatorios del laberinto. Estos son los caminos que 
usará (y que también usará el reptante) en su carrera hacia la derecha 
de la pantalla. Las líneas 194 a 224 asignan valores a u (coordenada 
vertical inicial del hombre), t (la horizontal del reptante), a (la vertical 
del reptante) y p (la horizontal del hombre. Se le da el valor 1, ya que 
éste debe partir desde el lado izquierdo de la pantalla). 

La línea 235 detecta si el reptante y el hombre ocupan la misma 
posición. Si así fuera, el reptante habría alcanzado al hombre y el pro- 
grama va a la línea 4fP, donde después de un fragmento de «El 
Himno del Reptante» se le informa de que ha perdido la partida. 
El resto del bucle hasta 315 se encarga de leer el teclado. 

En la línea 364 se imprime la noticia «HA GANADO LA CARRE- 
RA MORTAL». 365 comprueba si ha batido la puntuación máxima, 
igualando esta variable (h) a s (la puntuación lograda). Las líneas 370, 
375 imprimen la puntuación y la máxima puntuación respectivamente. 
Observe que la línea 37f utiliza la versión altanumérica de la puntua- 
ción (LEN STR$) para posicionar la impresión. Las líneas 389 y 399 
esperan a que quite las manos del teclado. Si lo hace y pulsa una 
nueva tecla (396), se inicia una nueva carrera (desde la línea 55). 
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Cuando adquiera una gran habilidad en el juego, puede modificarlo 
añadiendo reptantes a la carrera. 


S RANDOMIZE 
3 ROÑeRiE 
19 BORDER Q 
20 INK_6 
30 PAPER O 
40 GO SUB sun 
50 DEF FN a(x)=INT (RNDex) +1 
55 CLS 
69 
70 
30 
a 
100 
110 FOR a=8 TO 
20 00 INK s* BAENA 
Ñ A R A q 5,5 3,30; INVERSE 1;" 
i 
130 NEXT_a 
140 PRINT AT 21,0; INVERSE 1;" 
150 FOR a=2 TO 28 STEP 2 
188 PRINT AT EN 300 a” 
170 PRINT AT FN alx),a;" " 
180 NEXT 
190 LET 
200 LET 
210 LET 
220 LET 
230 PRI 4 
235 IF A 4 
400 
240 PRINT AT u,p; "A" 
245 LET s=5-16 
250 BEEP_.03,5/200 
255 PRINT AT 0,1; INVERSE 1;s;" 
269 PRINT AT U¿,p;" 
265_IF INKEY$="8" AND_ATTR (u,P 
+1) =6 THEN LET p=p+2: BEEP .1,p: 
BEEP ,1 
279_1F ' AND ATTR 
¿1 3ELEHEN LET p=p-2: LET Send 
0; _BEEP 
275 IF plaS THEN _G0 TO 320 
230 ter? U=U+(INKEYH="Z")*(U<20) 
-(INKEY$="w") + (u»>1) 
285 PRÍNT AT INT a, > 
290 LET a=a+RND* (INT au) ANDA 
INT_a>u) 
295 IF ATIR (INT a,t+1)=6 AND t 
<P_ THEN LET t=t+ 
Bao 10 APTA (ANT a,t-1)=6 AND t 
>P THEN LET t=t-2 
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315 60 TO 238 

320 FOR a=30 TO 60 

330 BEEP .01,3 

340 BEEP .01,a-12 

350 NEXT_a 

360 PRINT AT v,1; OVER 1;"Gano 
la Carrera de la Muerte 

365 IF h<s THEN LET h=s 

370 PRINT AT u+1-2% (U=20) ,390-LE 
N SERS 35 

375 PRINT AT 0,1; FLASH (h=8S); 
INVERSE 1; "PUNTUACION MAXIMA ";h 
pe. IF INKEY$<>"" THEN GO TO 38 
385 IF INKEY$="" THEN GO TO 385 
390 GO TO 55 

400 FOR f=560 TO 30 STEP -1 

410 BEEP ,01,f 

420 BEEP .01,f-12 

430 xr f 


NE 
445 PRINT AT u+1-2x*(U=20),1; OU 
SA 1;"Perdio la Carrera de la Mu 


rte 
casó PRENT AT INT a,t; FLASH 1; 


60 TO 
SATA 22,24,48,94,16,104,76, 


DATA 0,34,84,12,12,84,34,0 
FOR a=% TÚÓ 1 
FOR b=0 TO ? 

READ € 
POKE USR CHR$ (144+3)+b,c 
NEXT b 

NEXT_a 

RETURN 


AANAAANA MRZ 

O0JFARDII" SOX 

$50000606 AS 
P 


Clono loco 


Un solo zombi se ha reproducido 19 veces y 2 zombis están 
listos para cazarle. Usted está atrapado dentro de un área rectangular 
donde las principales características topográficas (a parte de los zom- 
bis y su desdichada persona) son un cierto número de peligrosos 
agujeros. 

El zombi original puede ser fácilmente distinguido por su sutil mé- 
todo de persecución y por su odio a los humanos. Un odio que roza el 
de un maníaco. Como es bien conocido, el resto de zombis son idénti- 
cos a su antecesor y, por lo tanto, van todos detrás de su sangre. 
Estos, además de heredar las habilidades de su antecesor, han here- 
dado también sus debilidades. La principal de ellas es la poca agude- 
za visual de estas criaturas. Esta será la clave de su supervivencia. 
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Recordará que se ha citado la existencia en la tierra de los zombis 
de una serie de peligrosos agujeros. La orientación de los zombis para 
perseguirle es muy buena, ya que perciben las emanaciones produci- 
das por el homo sapiens. En cambio, esta capacidad es totalmente 
inútil para detectar los agujeros. Esto se puede conseguir procurando 
que entre usted y un zombi exista un agujero. Tenga en cuenta, sin 
embargo, que mientras trata de embaucar a un zombi, otro puede 
alcanzarle. 

Puede moverse hacia arriba, abajo, derecha o izquierda, o, si se 
siente especialmente valiente, puede pararse de cuando en cuando. 
Los zombis pueden moverse horizontalmente, verticalmente y en dia- 
gonal. Cada partida da comienzo con un equipo completo de zombis y 
cuatro vidas para conseguir su objetivo. Ganará un punto por cada 
zombi que caiga por un agujero y, si consigue librar toda el área de 
zombis, se le premia con seis puntos más. 

Cada vez que sobreviva, se redibuja la pantalla con una nueva 
colonia de zombis y una cantidad menor de agujeros. Cada vez que 
sea alcanzado por un zombi o que caiga por un agujero perderá una 
vida. Después de cuatro incidentes habrá muerto totalmente. 

El programa dispone de un registro de la puntuación máxima para 
que pueda pasar los próximos cinco años intentando mejorarla. Puede 
moverse por la pantalla usando las teclas: «a» (arriba), «s» (abajo), 
«k» (izquierda) y «l» (derecha). Cualquier otra tecla parará su movi- 
miento. 

Después de activar el generador de números aleatorios mediante 
la línea 1, se DIMensiona una matriz para contener los miembros de la 
colonia de zombis. La variable rand se iguala a 0.1 (15) y la acción 
pasa a la subrutina de la línea 99PP. Los gráficos de los agujeros, 
zombis y usted se determinan en esta subrutina. En la línea 91PH el 
borde se hace azul, el papel amarillo y la tinta negra. Se muestra una 
página de título, seguida de un recordatorio de las teclas que deben 
pulsarse. El mensaje: «Pulse una tecla para empezar» (9246) precede 
a la instrucción PAUSE O, que para el programa hasta que usted 
pulsa una tecla. 

La instrucción RETURN devuelve la acción a la línea 2f, donde 
se determina el número de vidas (la variable se llama men y se iguala 
a 3, ya que cuando sea igual a O, usted todavía tiene una vida). La 
variable de la puntuación (score) se iguala a cero y en la línea 34 se 
inicializan otras variables necesarias en el programa. 

En la dirección 23564 se almacena un cero (POKE). Esta direc- 
ción contiene el valor de la tecla pulsada y almacenando un cero en 
ella se consigue borrar la última tecla pulsada. La línea 14P envía el 
programa a la línea 1900 donde empieza una subrutina que dibuja la 
tierra de los zombis. Se dibuja el borde en la línea 1019 y el bucle 
doble (i y j) de la línea 1020 emplaza los agujeros. El número de aguje- 
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ros depende del valor de la variable rand (1040) y del número genera- 
do por la instrucción RND de esta misma línea. 

Después de ejecutar la subrutina citada, la línea 110 dirige la ac- 
ción a la de la línea 3004 que coloca en la pantalla los zombis, contán- 
dolos (principio de la línea 3/5P) y detectando su posición para alma- 
cenarla en la matriz z (últimas dos partes de la línea 3050). La línea 
120 llama a la subrutina de la línea 2490, que le coloca a usted en la 
pantalla. La serie de instrucciones «IF SCREENS...» detectan si el 
área que rodea la posición inicial está libre. Si no lo estuviera, podría 
ser alcanzado por un zombi o caer por un agujero sin tener oportuni- 
dad de escapar o de corregir su trayectoria. 


PUNT: 7 MAX: u ERA 


o 
> 


Si observa esta instantánea del juego, verá que el número de 
vidas que le quedan se indican en la parte superior derecha de la 
pantalla, por encima del área. Las líneas 13 a 158 imprime esta indi- 
cación, la línea 164 imprime la puntuación en la parte superior izquier- 
da de la pantalla y la puntuación máxima en el centro de la pantalla 
(179). 

Recordará que en la línea 44 se había almacenado un cero en la 
dirección 23564 con el fin de borrarla. Ahora se espera que pulse una 
tecla («a», «S», «k» y «l»). Cuando lo haga, será almacenada en esta 
dirección por la línea 24P. Antes de que el ordenador reaccione a sus 
instrucciones, las variables tx y ty se igualan a su posición actual. 
Estas variables se usarán para borrarlo, si es necesario, en la línea 
450. Si no ha pulsado ninguna de las cuatro teclas, la línea 25f salta a 
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la rutina que detecta su posición y lo reimprime. La línea 264 hace una 
rápida comprobación de que, en su alocada carrera, no se haya salido 
de los extremos del área. La 27f comprueba si está vacía la posición 
donde pretende ir. Si no lo está, la rutina de la línea 49PP genera una 
indicación luminosa y acústica que pone de manifiesto su error. Si 
pasa el examen de la línea 27f, vuelve a ser impreso en 28f. 

La rutina de 300 a 499 se ejecuta cierto número de veces hasta 
que el valor de la variable num (incrementada en 40f) se hace mayor 
que el valor de go (que se inicializó a 4 en la línea 30 y que se altere en 
la 485). Esta rutina contiene la malevolente inteligencia de los zombis. 
En la línea 41f se realiza un examen (SCREENS) de la pantalla y, si 
encuentra un espacio en blanco, va a una rutina asociada en las líneas 
506 a 530. Si el número de zombis que quedan (información contenida 
en la variable left) llega a cero (es decir, que ha destruido a todos los 
zombis, incluido el original), obtiene un premio de puntuación (80P4 a 
8050) y se decrementa el valor de la variable rand (lo que implica que 
tendrá menos agujeros en la próxima partida, cosa que se determina 
en la línea 1040). 

Cuando la rutina de los zombis ha terminado, la línea 305 devuel- 
ve la acción a la línea 280, donde el proceso se reanuda. El bucle de la 
línea 7999 imprime los zombis con un fondo musical (7424 y 7P49). 
Una vez el número de vidas (men) ha llegado a cero (7H60), el ordena- 
dor usa la rutina de la línea 7/76 para, si es necesario alterar, la varia- 
ble que contiene la máxima puntuación y para ofrecer una nueva parti- 
da. Si entra «n» para indicar que no desea iniciar un nuevo juego, la 
línea 7P99 pone la tinta, el papel y el borde de forma que facilite el 
listado del programa o la entrada de otro. Si desea volver a jugar (y se 
detecta «y» en la línea 7480) la acción va a la línea 25, que asegura 
que no se borra su máxima puntuación (hi). 

Puede modificar fácilmente las teclas a usar para moverse. Es 
suficiente alterar las líneas 214 a 24M, donde se usa el valor numérico 
de la última tecla entrada (dirección 2356f). Si lo hace, también debe- 
rá cambiar las instrucciones de la línea 915f a 918f. Para generar 
más O menos agujeros, cambie el valor inicial de la variable rand en 
las líneas 15 y 7963. Para modificar la función de cambio de agujeros 
al final de cada partida, altere la línea 89P6. Los gráficos definidos por 
el usuario son: «A» (Vd.), «B» (zombi) y «C» (agujero). 


RANDOMIZE 

DIM z (30,2) 

LET hi=0 

LET_rand=0,1 

G0_SUB 9900 

25 LET men=3: LET _score=0 

0 LET left=0: LET max=20: LET 
zoMfmbie=0: LET g0=4 

409 POKE 23568,0 


ere 
SUarGaer 


0 


56 


109 GO 5UB 1900 

110 60 $UB 3040 

120 60 $UB 2090 

430 1F men» THEN PRINT AT 0,29 
140 IF men>1 THEN PRINT AT 0,39 
"190 IF men>0 THEN PRINT AT 0,31 
"160 PRINT AT 9,0; "PUNT: "¡score 
170 PRINT AT_9,15;"MAX: “¡hi 
3200 LET a=PEEK 23560 

298 LET txsPpx: LEI tg=py 

¿210 15 8=97 THEN PRENT 1 Bu PX 


LET Eje =1: 9 T 
"220. IF ani Ss THEN ERIN Af Ppy,P 
Xi" o": LE 5 SERE 60 TO 260 
230, 1F 510 HEN. PRINT_AT py,P 


“¿so 0 TO 309 


260 IF _px«1 OR_px>30 OR py<2 OR 
py¿29 THEN_GÓO TO 40009 

270 IF SCREENS (PY,PX)<>" " THE 
N 60 TO_ 500 

280 PRINT AT _Py,Px;"xX" 

300 LET num=0 

305 IF_num>90 THEN G0 TO 290 
310 LET_zombie=zombie+1: 1F zom 
bie>»max THEN LET zombie=1 

230 IF zízombie,1l)=0 THEN GO TO 
330 LET zx=z (zombie,1): LET Zzy= 
z(zombie,2): LET tx=Zx: LET ty=Z 
y 

340 LET dx=0: LET dy=0 

350 IF zx<Px THEN LET dx=1 

3608 IF z2x>Px THEN LET dx=-1 

370 IF zy<Py THEN LET dy=1 

380 IF_z7Y>PY THEN LET dy=-1 

390 LET Zx=z2x+4X: LET ZY=zY+dY 
400 LET num=num+1 

410 IF SCREENS (2Y,2x)=" " THEN 

30 TO_S0u 

420_IF SCREENS (ZY,2x)="%" THEN 
G0 TO_305S 

430 IF zx=px AND zy=Py THEN GO 
TO 7009 

449 LET z(zombie,1)=0 

459 PRINT AT ty,tx; 

460 LET score=3core+l: PRINT AT 
9,9; "PUNT: "score 

479 LET_left=left-1: IF left=0 
THEN GO0_TO 3000 

430 FOR n=1 TO 10: BEEP 0.01,n: 
NEXT n 

485 LET_go=1+INT (left/S) 

499 GO TO 305 
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JONA" or Ou 


Dm 


"c"+4,BIN 01100119 
"c"+5,BIN 01111110 
"c"+6,BIN VO111100 
“cr47,0 

PAPER 5: INK 0; C 
1,11;"Cclono Loco” 
1,11; OVER 1;” 
4,4;"Mike O'Neill 
3,4;"Teclas:” 
10,4;"A = arriba" 
11,4,"5 = abajo" 
12,4;"K = izquierd 
13,4;"L = derecha” 
14,4,"Dtra tecla = 
19,2;"Pulse una te 
ar” 


Juegos de tablero 


Pirandello 


Basado en el juego inventado en 1880 llamado Reversi, Pirandel- 
lo se le denomina también Othelo. Reversi juega en un tablero de 
ocho por ocho cuadros y los jugadores pueden colocar sus dos prime- 
ras fichas en cualquier cuadro libre de los cuatro centrales. En Piran- 
dello, en cambio, las posiciones ocupadas en los primeros cuatro cua- 
dros están fijadas, como verá al ejecutar el programa. 

A partir del momento inicial, los movimientos siguen una regla 
muy simple: cada pieza nueva debe ser colocada al lado de una del 
oponente y otra pieza del propio jugador debe estar colocada al otro 
extremo de piezas del oponente. Si esto se consigue, todas las piezas 
del oponente situadas entre las dos propias se convierten en fichas 
propias. La línea de piezas puede seguir cualquier dirección: horizon- 
tal, vertical o diagonal. Si la pieza del jugador completa dos líneas, 
ambas líneas de piezas cambiarán de propietario. El objetivo del juego 
es convertir en propias tantas piezas del adversario como sea posible, 
de forma que cuando el tablero quede lleno o no se puedan hacer más 
movimientos legales, usted posea más fichas que el adversario. El 
ganador se decide simplemente por recuento del número de fichas 
que hay sobre el tablero. 

Para explicar el cambio de propietario de las fichas se ilustra con 
un ejemplo: Imagine que juega con fichas X y el computador con 0. Si 
hubiera una línea XOOO y usted decide colocar su ficha así XOOOX, 
las fichas del oponente cambiarán así XXXXX. 

El juego depende más del conocimiento de qué lugares son más 
fuertes que de convertir muchas fichas. Las posiciones más fuertes 
son las cuatro esquinas. En ellas una pieza controla toda una diagonal 
del tablero. En cambio, los cuadros siguientes a éstos en las diagona- 
les son probablemente los más débiles. Otros cuadros fuertes son los 
que rodean los cuatro iniciales. 

El Spectrum conoce muy bien el valor relativo de cada cuadro y 
tratará de ganar las mejores posiciones. A pesar de todo, no es la 
mejor estrategia depender sólo de las posiciones. Siempre aparecen 
varias opciones y escoger una u otra puede depender de las posicio- 
nes o de la cantidad de piezas que se puedan convertir en una jugada. 
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No obstante, el programa está optimizado solamente por el criterio de 
posiciones. Con ello se consigue una respuesta más rápida y, en la 
mayoría de los casos, suficientemente inteligente. 

La línea 30 envía la acción a la línea 49PH, una subrutina que 
imprime el nombre del programa y espera que usted pulse una tecla 
para empezar el juego. A continuación el borde se iguala a 5, el papel 
a 2 y la tinta a 9 (la instrucción INK 9 selecciona en cada caso la tinta 
que produce el máximo contraste). Se imprime la palabra PIRANDE- 
LLO repetida en todo lo alto de la pantalla con variados colores y con 
cierto acompañamiento musical. Aparece luego la instrucción: «Espe- 
re un momento», mientras se DIMensionan una serie de vectores y se 
inicializan unas variables. 

La rutina de inicialización se inicia en 5PPP. Se DIMensionan tres 
vectores. El vector A (línea 5910) contiene las posiciones del tablero 
ordenadas por orden de mérito. El vector D se usará para contener las 
posiciones de las piezas que deban cambiar de propietario. 

Los bucles de 5434 a 5P7/ llenan el vector A con caracteres 146 
(que es el código de un gráfico definido por el usuario: un cuadro). 
Esto se usará al imprimir el tablero para indicar posiciones vacías. El 
bucle siguiente (5980 a 5110) lee la información de las líneas de datos 
5320 y 533( y la almacena en el vector E. Si observa las dos líneas de 
datos (DATA), verá que contienen números del 12 al 89 en un orden 
aparentemente aleatorio. Sin embargo, no lo es. Representa la idea 
del programador respecto al valor relativo de las distintas posiciones 
del tablero. El cuadro 18, por ejemplo, es uno de los más valiosos; por 
lo tanto el ordenador verificará si puede tirar antes allí que en otra 
parte. Los cuadros menos valiosos son los que están los últimos en la 
instrucción DATA de la línea 5330: 28, 78 y 23. 

El siguiente bucle (512P a 5150) llena el vector D con los datos de 
la línea 5344 (1, 9, 10, 11, —1, —9, —10, —11). Representan los des- 
plazamientos posibles desde una posición y se usa para saber si hay 
que cambiar piezas después de una tirada. 

Las líneas 5169 y 5179 colocan las primeras piezas en posición. 
5180 especifica que el primer movimiento lo hará en el ordenador ini- 
cializando la variable: quien mueve. 

Inmediatamente el Spectrum define los gráficos. Se usan tres: un 
cuadrado que indica una posición vacía, un diamante (impreso en 
rojo) que representa una pieza del ordenador y una línea diagonal 
(impresa en blanco) que es su pieza. Los datos para estos gráficos 
están contenidos en las líneas 5354 a 5370 y la «Z» al final de la línea 
537( activa el cambio de color del borde, el borrado de la pantalla y el 
paso del programa a la línea 4PP. 

Después de imprimir el tablero (44f a 490) se examina quién 
mueve. Si el contenido de la variable Y es 144, el ordenador sabe que 
debe mover él. Sino, el computador cambia Y a 144 (para que la próxi- 
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ma vez le toque mover a él) y la línea 530 acepta el movimiento del 
jugador en forma de dos números: las coordenadas vertical y horizon- 
tal. El movimiento se entra como un solo número de dos cifras (como: 
25 u 81). Se rechazan los movimientos por debajo de 11 y por encima 
de 88. 

Si no puede hacer un movimiento legal, entre un f para indicarlo y 
el ordenador irá a la línea 100 a hacer su movimiento. (Si el ordenador 
tampoco puede mover, véase la línea 35f, se comprueba si previa- 
mente usted no ha podido y, si es así, el programa va a la rutina de la 
línea 1990 que cuenta las piezas y anuncia el ganador.) La línea 569 
examina el número entrado para ver si está entre los límites (11 y 88) y 
si el cuadro al que se tira está vacío (es decir, si contiene un 146). 

Una vez se ha aceptado el movimiento, el ordenador va a la sec- 
ción de programa que empieza en la línea 160, que usa los valores de 
desplazamiento contenidos en el vector E para saber las piezas que 
deben ser cambiadas (es decir, convertidas en piezas del oponente). 
Al final de esta rutina, que va de las líneas 16 a 32P, se verifica quién 
debe tirar. Si resulta igual a 144 o el testigo de impresión de tablero (J, 
inicializado en la línea 1648 y cambiado siempre que sea necesario en 
294) es igual a uno, el ordenador va a la línea 4WP donde se imprime 
de nuevo el tablero. Si no se han examinado todos los cuadros (si en 
la línea 344 K no es igual a 6f)) el programa vuelve a la línea 136 para 
seguir el examen. Si se llega a la línea 35f, se imprime el mensaje 
«Paso». 

La línea 50f examina el valor de Y, si su contenido es 144 el 
ordenador debe mover. Por lo tanto, el programa vuelve a la línea 19P, 
donde se decide el movimiento (las líneas 1PP a 150 más 34f). Nótese 
que aquí se usa la información, contenida en las instrucciones de 
datos, de qué cuadros deben ser examinados prioritariamente. 

Encontrará PIRANDELLO un juego muy interesante y el Spec- 
trum un oponente de alto nivel. Una vez tenga una buena marca en el 
juego, puede mejorarlo cambiando los gráficos y variando la ordena- 
ción de los números de cuadros más interesantes, tratando de mejorar 
la estrategia del ordenador y haciéndolo un oponente más difícil. 
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44 THEN LET C=C+1 
45 THEN LET H=H+1 
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LET A(S5)=14 


IF_A$="Z" THEN BOR 
7 


G0 TO 400 


170 LET A(S6) =144: 
5180 LET Y=144 
S270 READ AS: 

DER 0; CLS : 
s280 FOR C=0 TO 


3-HARTNELL 


5290 RERD B: POKE USR A$+C,8 
S300 NEXT _C 
5310 GÓ TO 5279 
5320 DATA 19,81,82,12,62,17,32,8 
7,69,14,39,54,584,67,37,54,49,1 
5$,5$,16,52,42,86,68,54,86,24,36 
$336 DÁTA_53,43,53,75,24,27,38,2 
5,74,77,43,26,68,33,53,75,72,13, 
29,18,88,22,83,79,73,28,78,23 
5340 DATA 1,9,10,11,-1,-9,-10,-1 
5350 DATA "A",0,24,68,126,126,60 
$38é DATA "B",0,4,14,28,56,112,3 
5379 DATA "C",255,129,129,129,12 
32,129,129,255,"2" 

Damas 


Desafíe ahora a su Spectrum a jugar a DAMAS, uno de los juegos 
más populares después del ajedrez. Algunos historiadores de los jue- 
gos afirman que el juego de las DAMAS es un antecesor del ajedrez. 
En realidad, en el antiguo Egipto, en Grecia y en Roma se jugaban 
juegos parecidos. Después de una evolución de siglos, el juego alcan- 
zó su forma actual a mediados del siglo XVII. 

Existen muchas variaciones regionales de este juego, pero la ver- 
sión propuesta es la que se podría considerar más representativa. Las 
DAMAS se juega entre dos oponentes, utilizando cuadrados alterna- 
dos del tablero de ajedrez, por lo general los negros. Para hacerlo más 
fácilmente visible en la pantalla del televisor (y para poderlo copiar en 
impresora, si utiliza la función COPY para copiar el contenido de la 
pantalla) el juego utiliza los cuadrados blancos del tablero. 

Cada bando empieza con 12 piezas. En esta versión usted tiene 
las pequeñas «x» y el ordenador las «o» (sin emargo, una vez conoci- 
do el juego, puede cambiar los gráficos). El ordenador tiene situadas 
sus fichas en la parte alta de la pantalla al comienzo de la partida, 
mientras que usted las tiene situadas en la parte inferior. 

Unicamente se puede mover en diagonal, siguiendo los cuadros 
blancos. Si existe un enemigo en la diagonal e inmediatamente en 
frente de usted y un sitio libre a continuación, puede capturar esta 
pieza saltando por encima de ella (la pieza capturada desaparece del 
tablero) y aterrizando en el siguiente cuadro libre. Puede capturar más 
de una pieza a la vez si después de aterrizar en el cuadro libre es 
posible otra captura desde este punto. 
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En ciertas variantes del juego de las DAMAS existe la regla del 
«soplado», que establece que si puede hacerse una captura, debe 
hacerse. No existe tal regla, como tal, en este juego, pero el ordenador 
siempre capturará; si puede, por lo tanto, usted debe hacer lo propio si 
quiere ganar la partida. 

El objetivo del juego es capturar todas las piezas del oponente o 
inmovilizarlas. En este programa, el Spectrum tenderá a jugar hasta el 
final, pero en ciertas circunstancias puede reconocer que está batido, 
entonces se rinde y le concede la partida. Usted puede rendirse en 
cualquier momento, entrando un 99 en su turno de movimiento. Si lo 
hace, Spectrum aceptará su derrota. 

Si consigue llegar con una de sus piezas al extremo contrario del 
tablero, la pieza es coronada y se convierte en una DAMA. Esto se 
muestra en el programa con el cambio de gráfico de la pieza. Más 
adelante se explica brevemente cómo puede cambiar estos gráficos 
según sus gustos. Una DAMA tiene el doble de movilidad que una 
pieza normal. Puede moverse adelante y atrás, convirtiéndose en 
una pieza formidable. Nótese que, si aterriza en la última línea des- 
pués de una captura, no puede en este mismo instante coronarla y 
seguir con sus capturas en dirección contraria. Su pieza no se conver- 
tirá en una DAMA hasta la siguiente jugada. El ordenador conoce esta 
regla y la aplica esperando un movimiento antes de coronar sus fi- 
chas. 

Verá que el ordenador juega bastante rápido y con un grado de 
inteligencia y anticipación sorprendentes, lo que significa que deberá 
concentrarse para ganarle. Para añadir interés, el ordenador imprime 
en pantalla cada jugada, haciendo un sonido especial en las jugadas 
que considera más interesantes. El ordenador examina el tablero cua- 
dro por cuadro desde la parte superior izquierda y toda la fila superior, 
pasando por cada línea de izquierda a derecha, hasta el final. Cuando 
encuentra una pieza propia, comprueba si puede realizar una captura. 
Si es así, la hace sin pensarlo más, reimprime el tablero y le permite 
entrar su respuesta. Si no puede realizar capturas, busca posibles 
movimientos, comprobando que no le sean peligrosos. También tiene 
cierta facilidad para elaborar movimientos que protejan piezas que se 
encuentren en peligro. 

Después de haber recorrido el tablero y de haber almacenado los 
movimientos seguros en una matriz, examina si es posible obtener 
una DAMA con un solo movimiento. Si es posible tal movimiento, se 
hace, ya que el ordenador concede más importancia a obtener una 
DAMA que a hacer un movimiento seguro. Si no es posible, el ordena- 
dor escoge al azar su movimiento entre los almacenados. Al hacerlo 
aleatoriamente, el ordenador puede jugar una serie de partidas sin 
repetirse, aunque usted trate de forzarlo a un juego idéntico a uno que 
haya sido ya jugado. 
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Si el examen del tablero revela que no existen movimientos segu- 
ros, escoge una pieza al azar y la mueve. Tal movimiento ocurre rara- 
mente y sólo al principio o al final de las partidas. Si el ordenador 
dispone de muy pocas fichas en el tablero, puede considerar que su 
situación es desesperada y concederle la victoria. 

Como se ha dicho, el programa tiene una elevada velocidad de 
respuesta. Ello es debido a que, en la mayoría de los movimientos, 
sólo se examina parte del tablero o, en el peor de los casos, todo el 
tablero, pero una sola vez. El tiempo de ejecución aumenta debido a 
las líneas que se imprimen de los movimientos que el ordenador con- 
sidera. No obstante, esto añade interés al juego y se ha creído conve- 
niente mantenerlas aunque lo hagan algo más lento. Si prefiere que el 
programa responda más rápidamente, puede borrar ciertas líneas del 
mismo, que le serán indicadas al analizarlo. También existen ciertos 
comentarios, tales como «¡Buena jugada!» o «¡Lo consiguió!»; que 
aparecen de cuando en cuando. Estas informaciones ralentizan un 
poco el programa y pueden ser eliminadas. Quizá, como ha pasado a 
muchos usuarios del programa, prefiera disponer de dos versiones. 
En este caso, grabe el programa entero y después borre las líneas 
superfluas, con lo que dispondrá de una copia que se ejecuta a la 
máxima velocidad. Cada vez que juegue podrá escoger entre ambas. 

Después de que se ha activado el generador de números aleato- 
rios en la línea 5f, la acción va a la subrutina de la línea 197P, donde 
se inicializan las variables. Si se analiza esta subrutina, se verá que 
empieza por determinar los colores del papel y del borde (azul) y el de 
la tinta (amarillo). Como en todos los programas contenidos en este 
libro, usted puede cambiar estos colores a su gusto y hallar la combi- 
nación que dé mejores resultados en su televisor. Aparece el mensaje 
«Espere un momento» en la parte superior de la pantalla, mientras se 
ejecuta el proceso de inicialización. (Puede considerar la inclusión de 
Una línea tal como está en todo programa que tenga un proceso de 
inicialización, para informar al utilizador que ocurre algo cuando se ha 
pulsado RUN y ENTER.) 

La línea 1080 asigna valores a las piezas. Los nombres de las 
variables son: C, pieza del ordenador; H, pieza del usuario; CK, dama 
del ordenador; HK, dama del usuario; E, espacio en blanco; B, cuadro 
negro. La asignación de estas variables permite su utilización a lo 
largo del programa sin redefinición. Se ha hecho así para que pueda 
cambiar la representación gráfica del programa cambiando simple- 
mente estas líneas. Si desea añadir gráficos definidos por el usuario, 
debe igualar, por ejemplo, H a 144 (código del gráfico uno, definible en 
la tecla A con el modo GRAPHICS), C a 145, etcétera. 

La línea 1080 inicializa la variable OF que representa «fuera del 
tablero». El ordenador se construye una fila de cuadros invisibles alre- 
dedor del tablero para evitar la captura de una ficha colocada en el 
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extremo. Si no se hiciera así, el ordenador podria suponer que hay un 
espacio libre detrás de una ficha situada en esta posición. 

Una vez se ha definido la variable OF, se dimensiona la matriz Q 
(que contiene las piezas) y cada elemento de la matriz se llena con un 
espacio OF. El bucle siguiente (1114 a 113P) usa los datos contenidos 
en las líneas 114f a 123P para llenar los cuadrados del tablero con los 
valores iniciales. Todos los elementos de la matriz no asignados man- 
tienen el valor OF (-99), por lo tanto el ordenador sabe donde no 
debe perderse. 

La línea 1246 es un bucle que llena el vector N (ya dimensionado 
en la línea 1999) con números que representan los posibles movi- 
mientos desde cada cuadro sin capturar ninguna ficha. El ordenador 
sabe que doblando estos números, cuando sea necesario, obtiene el 
movimiento con captura. En la línea 126f se inicializan las variables 
que cuentan el número de fichas capturadas al oponente: CO, para el 
ordenador; HU para el usuario. 

Al volver de la subrutina a la línea 9/ aparece el comentario 
«Borre la siguiente línea para evitar que el Spectrum mueva primero». 
Si desea mover primero, debe borrar la línea 1/fP. No es necesario 
nada más en el programa para conseguirlo. El Spectrum no es el 
mejor jugador de DAMAS del mundo, por lo tanto, lo mínimo que 
puede hacer por él es dejarle tirar primero. El programa transcurre a 
través de un bucle de subrutinas del 11f a 149 y la línea 156 lo reinicia 
Una y otra vez. Las subrutinas que soportan el programa principal son: 


68/) imprime el tablero 

858 acepta el movimiento del usuario 

68f) reimprime del tablero después del movimiento del usuario 
169 inicia la investigación para el movimiento del computador. 


Se empezará observando el proceso de investigación porque es 
la sección más interesante del programa. La línea 160 DiMensiona el 
vector S, que se usará para almacenar los movimientos seguros que 
descubra el ordenador en su búsqueda de capturas. La variable SC, el 
contador de movimientos seguros, se iguala a cero en la línea 17f, 
donde también se iguala la variable A (cuadro que se considera) a 89, 
uno más que el elemento 88, colocado en la parte superior izquierda 
del tablero. La línea 180 decrementa A, para indicar el cuadro de la 
parte superior izquierda, y la línea 1994 lo examina para determinar si 
es una pieza ordinaria del ordenador (es decir, ve si este elemento de 
la matriz contiene el valor C) o una DAMA del ordenador (valor CK). La 
línea 2P inicializa la variable B (que indica qué movimiento se consi- 
dera desde este cuadro) a cero. Si A es menor que 29, el ordenador 
sabe que está en la última línea de su lado y que, por lo tanto, sólo 
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puede moverse una posición hacia adelante (los valores 3 y 4 indican 
estos movimientos), despreciando la consideración de los valores 1 y 
2 de la variable B. 

La línea 21f incrementa B (que se convierte en 1 o 3 si se consi- 
dera una pieza situada en la última línea) y 220 determina M (que 
representa el cuadro al que apunta el ordenador, mientras que A es el 
cuadro desde el que se piensa mover el ordenador) igual a A más el 
elemento del vector N que indica el valor de B. Si M es mayor que 88 o 
menor que 11, el ordenador sabe que la ficha está fuera del tablero y 
no requiere ser considerada. La línea 244 es una de las que puede ser 
borrada si desea máxima velocidad: imprime el movimiento que está 
siendo considerado. 

La próxima línea puede encontrar una captura. Si el cuadro al que 
se piensa ir está lleno (con una ficha del usuario «H» o una DAMA del 
usuario «HK>») y el cuadro siguiente está vacío (E), el ordenador sabe 
que puede efectuar una captura. Si es así, la acción se dirige a la línea 
32f, donde se muestra el mensaje. Lo conseguí! intermitentemente. 
Como antes, si desea una ejecución a máxima velocidad, puede bo- 
rrar las líneas 33(, 34H y 356. 

Siguiendo con el programa principal de movimiento del computa- 
dor, la línea siguiente (26M) examina la peligrosidad del movimiento, 
viendo si la ficha movida al cuadro considerado puede ser objeto de 
Una captura o si deja al descubierto otra ficha propia. Si la pieza pasa 
la larga serie de IF que configura el examen mencionado, el Spectrum 
va a la subrutina que empieza en la línea 470. El ordenador puede 
almacenar hasta diez movimientos seguros (ya que el vector que los 
contiene no tiene más posiciones y que es el número que se considera 
más adecuado). El contador de movimientos seguros (SC), que ha 
sido igualado a cero en 17f, es incrementado, si su contenido es 
menor que diez. La línea 48f (que puede ser borrada) imprime «Movi- 
miento seguro: de ... a ...» y suena un BEEP para subrayar la existen- 
cia de un movimiento seguro. 

La línea 494 es muy interesante. Empaqueta las variables A y M 
en un único número que se almacena en el siguiente lugar libre del 
vector S. De esta forma, si es necesario, puede decodificarse. La línea 
494 devuelve la acción a la parte principal del programa de búsqueda, 
pero se seguirá analizando la línea 59f para ver cómo se realiza un 
movimiento seguro. Si no ha habido captura, el ordenador va a la línea 
500. Si SC es igual a P, no existe ningún movimiento seguro y va a la 
línea 55f a seleccionar aleatoriamente un movimiento. Si, por el con- 
trario, SC es mayor que cero, el programa sigue en la próxima línea y 
se selecciona uno de los números codificados en el vector S. Este 
número se almacena en XC y se decodífica, recapturando A en la 
línea 529 y M en la 53f. La línea 540 envía el programa a la línea 656, 
donde se realiza el movimiento. 
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Volviendo a la primera sección del programa, se llega a la línea 
27/, donde se incrementa B. El primero y segundo elementos del vec- 
tor N contienen los movimientos que pueden ser realizados por cual- 
quier pieza (excepto una que está situada en la línea inferior) y el 
tercero y cuarto elementos del citado vector contienen los movimien- 
tos a realizar por las DAMAS. Si B, el contador que selecciona los 
elementos del vector N que serán usados para efectuar los movimien- 
tos, es menor que su máximo (dos para una pieza ordinaria y cuatro 
para una DAMA), el programa vuelve a 21f, donde se incrementa el 
contador B y sigue la búsqueda. La línea 2840 examina si se han anali- 
zado todos los cuadros del tablero y sino vuelve a la línea 184, donde 
el contador de cuadros, A, se decrementa y la búsqueda sigue. No 
obstante, si se han utilizado todos los movimientos (es decir, si A es 
menor que doce en la línea 28), el programa ejecuta las dos líneas 
siguientes, donde se examina la posibilidad de obtener una DAMA. El 
indicador FL se iguala a cero y el computador examina los elementos 
del vector que representan los cuadrados de la fila anterior a la que 
convierte las fichas ordinarias en DAMAS. Si encuentra una ficha pro- 
pia en esta línea, el programa va a la subrutina de la línea 1270. Si 
esta subrutina encuentra un movimiento para poder hacer la DAMA, 
iguala FL a uno y envía la acción a la línea 65f para ejecutar realmen- 
te el movimiento. 

Si tal movimiento no es posible, la línea 310 salta la sección 
donde se hace el movimiento de captura y va a la línea 500. Conviene 
recordar el orden de preferencia que sigue el ordenador: 


¿Puedo capturar, y si es así, puedo volver a hacerlo? 
¿Puedo hacer una DAMA? 

¿Puedo hacer un movimiento que no exponga la pieza movida 
o a otra pieza? 

¿Puedo hacer un movimiento legal? 


Si la respuesta a una de las preguntas es «sí», se realiza el movi- 
miento y se reimprime el tablero, quedando listo para recibir su movi- 
miento. Si la respuesta es «no», se considera la siguiente pregunta. Si 
la respuesta a la última pregunta también es «no», el ordenador le 
concede la victoria. (Existe otra pregunta que se realiza cada vez que 
se reimprime el tablero: ¿cuántas piezas ha capturado cada jugador? 
Si resulta que algún jugador ha capturado 12 piezas, el juego entra en 
una subrutina que reconoce quién es el ganador y termina el juego.) 
Este tipo de ordenación de preguntas es típica de muchos juegos y es 
la que da más agilidad y habilidad al ordenador. 

Si el ordenador llega a la línea 5MP, la respuesta a las dos prime- 
ras preguntas ha sido «no». Para formular la tercera (¿Puedo hacer 
un movimiento seguro?) el ordenador debe consultar el valor de SC (el 
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contador de movimientos seguros). Si es cero, no ha podido encontrar 
movimientos que se puedan considerar seguros, por lo tanto, la res- 
puesta es «no». Se ha examinado ya el sistema para reconocer los 
movimientos seguros. Ahora el ordenador dispone sólo de un último 
recurso: escoger un movimiento legal aleatoriamente; lo hace a partir 
de la línea 559. 

Aquí la variable SC es otra vez útil para evitar la inicialización de 
Una nueva variable. Después de todo, se inicializará a cero (línea 179) 
antes de un nuevo movimiento, por ello no resulta peligrosa su reutili- 
zación aquí. La línea 559 incrementa SC y escoge un cuadro aleatoria- 
mente entre 1 y 88. Si este cuadro no contiene una pieza del ordena- 
dor o del oponente (56M), la acción va a la línea 63P, donde, si se han 
escogido menos de 34H números en esta sección, la acción se dirige a 
la línea 559 para intentarlo otra vez. 

Por el contrario, si el cuadro escogido contiene una ficha ordinaria 
o una DAMA del ordenador, la rutina de las líneas 57f a 624 comprue- 
ba si se puede mover, Si es así, la línea 614 envía el programa a 659, 
donde se realiza el movimiento. Si no encuentra un movimiento y han 
sido escogidos ya 36f números aleatoriamente, el ordenador le con- 
cede la victoria en la línea 64P. 

Antes de analizar la sección donde se permite la entrada de su 
movimiento, se examina la sección que comienza en la línea 37/. Se 
llega a esta línea después de conseguir una captura. La línea anterior 
ha incrementado la puntuación del ordenador (CO) antes de que 379 
llame a la subrutina de impresión del tablero que muestra la pieza 
movida, la nueva puntuación del Spectrum y, por supuesto, un espa- 
cio en blanco donde estaba la ficha capturada. Como recordará, A es 
el número del cuadro desde el que se ha movido el ordenador yMel 
del cuadro al que se ha movido. Ahora A se iguala al cuadro al que se 
ha movido el ordenador y las líneas 394 a 4680 examinan si es posible 
hacer una nueva captura. Si es así, la lleva a cabo, volviendo a com- 
probar lo mismo después de cada impresión del tablero. Cuando se ha 
terminado la secuencia de capturas, el ordenador pasa el turno a su 
oponente y le permite hacer su movimiento. 

La sección de entrada de sus movimientos es simple. Usted 
mueve especificando el cuadro desde el que quiere moverse, indican- 
do primero la fila y luego la columna como si se tratase de un solo 
número (tal como: 31). Inmediatamente pulse ENTER y ahora puede 
entrar dos números más que indiquen el cuadro a donde quiere aterri- 
zar. Se ejecuta entonces el movimiento, se reimprime el tablero y si ha 
conseguido una captura, se le preguntará si puede saltar de nuevo. Si 
responde «no», el ordenador pensará su movimiento. Si responde 
«sí», deberá entrar el nuevo cuadro al que desea ir (por supuesto, el 
ordenador sabe ya qué ficha debe mover). 

La sección que acepta sus demandas empieza en la línea 810, 
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donde los comentarios REM le indican que puede terminar el juego 
entrando 99. Entrando un «1» ordenará al ordenador la copia de la 
pantalla en la impresora. Después de la copia, se le volverá a requerir 
su movimiento. Después de hacerlo en el vector que contiene las pie- 
zas (91f), dos bucles (924 a 956) examinan si alguna pieza del juga- 
dor ha alcanzado el estatus de DAMA y, si es así, cambia el símbolo 
gráfico adecuadamente. Recuerde que, como ya se ha mencionado, 
una pieza no se comportará como DAMA hasta una jugada después 
de su coronación. En esta misma sección se coronan también las fi- 
chas del ordenador para evitar que sus fichas coronadas fueran movi- 
das sin seguir la citada regla. No existe en el programa nada que le 
impida hacer trampas, ya que el ordenador ni sueña que esto pueda 
hacerse. A pesar de eso, una trampa puede parar el programa y obli- 
garle a comenzar una nueva partida. 

En la línea 960 el ordenador determina la diferencia entre los cua- 
dros entrados. Si la diferencia es menor que 12, usted no ha reali- 
zado una captura, entonces el ordenador vuelve al bucle principal en 
el principio del programa para reimprimir el tablero antes de que el 
ordenador seleccione un nuevo movimiento. Por el contrario, si la dife- 
rencia no es menor que 12, se ha realizado una captura y el ordenador 
anunciará, dos veces de cada tres, esta captura con un comentario 
generado por las líneas 97f a 999. Con comentario o sin él, se produ- 
ce un tono creciente de sonido producido en la línea 995, se incremen- 
ta su puntuación (HU) en la línea 14PP, el cuadro capturado se vacía 
(línea 1400), se reimprime el tablero (línea 1930) y se le da la oportuni- 
dad de efectuar otra captura. Si no lo hace, la línea 1944 devuelve el 
programa al bucle principal, evitando pasar por la línea 1964 que igua- 
la el anterior cuadro de destino al nuevo cuadro de situación y envía el 
programa a la línea 869 para aceptar un nuevo cuadro de destino. 

Se ha analizado ya el resto del programa, que controla las rutinas 
de inicialización y obtención de dama. La única parte del programa 
que no se ha descrito, y que se explica por sí misma, es la que está 
comprendida entre las líneas 684 y 78f, que imprime el tablero des- 
pués de cada movimiento. Obsérvese que la línea 774 vuelve al pro- 
grama principal si la puntuación del ordenador o la suya llegan a 12. 
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Esta es una muestra del tablero al principio de la partida y al cabo 


de unas cuantas jugadas. 
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IF A<29 THEN LET B 
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LET S5(50) 2100*A+B+20: RETUR 


IF _5Cz=0 THEN _ GO TO 550 

LET XC=INT (RND*SC) +1 

LET A=INT (S(XC)/100) 
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3930 NEXT_T 

940 FOR T=32 TO 88; IF Q(T)=H T 
HEN _LET TIRAS 


250 ns Ass (A-B) <12 THEN RETURN 


970 LET_TY=RND 
280 IF TY<0.3 THEN PRINT AT 0,09 


"Buen movimiento 

"930 IF TY>0.7? THEN PRINT AT 0,9 
¡úMe ha ado!" 

995 FOR TES TO -1 STEP 0.7: B 
EEP_ ,01,T: NEXT T; PRINT AT P2; 
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1240 FOR Ma1 TO 4: READ N(M); NE 
1250 DATA -11,-9,11,9 
12609 LET CoO=0: LÉT HU=0; RETURN 
1279 IF 0(22)=0 AND 0(11)=E THEN 
LET A=22: LET M=11: LET FlU=l: R 
ETURN 
1230 IF 0(22)=C AND 0(13)sE THEN 
LET A=22: LET M=13: LET Flsl: R 
ETURN 
1298 IF 0(24)=C AND 0(19)=sE THEN 
ee: LET M=13: LET FL=1: R 
1309 IF 0(24)=0 AND 0(15)=E THEN 
EL As2é: LET OM=15: LET FL=1: R 
1319 IF_0(26)=C AND 0(15)=E THEN 
CEL A=26: LETOM=18: LEY FL=1: R 
1320 IF 0(25)=C0 AND 0(17)5E THEN 
LET FL=1: R 


LET A=26: LET M=17: 
ETURN 
1340 RETURN 


TIC-TAC-TOE 


TIC-TAC-TOE (puntos y cruces) es un juego muy conocido en el 
que usted y su oponente colocan sus piezas (puntos y cruces) alterna- 
tivamente en los sitios vacíos de un tablero de tres por tres posiciones, 
tratando de colocar tres en línea recta en cualquier dirección: vertical, 
horizontal o diagonal. El juego ha sido tan bien analizado, que al jugar- 
lo se producen muy pocas sorpresas, al contrario de la mayoría de los 
programas de puntos y cruces, que son muy predecibles y donde 
usted a lo sumo, puede empatar; este programa ha sido construido 
con el objetivo de que sea poco predecible, pero igualmente brillante. 
A parte de tomar el cuadro del centro si es posible, los movimientos 
del Spectrum son aleatorios (excepto, por supuesto, la terminación de 
Una posible línea de tres y el bloqueo de una línea que usted pudiera 
hacer). El programa permite tirar primero a uno cualquiera de los juga- 
dores (esta decisión se toma en la línea 59). 

Si la función RND de la línea 54 es mayor de H,5 el ordenador 
decide tirar primero y, después de una pausa, va a la línea 9f, que 
envía la acción a la línea 7Pf, donde una subrutina se encarga de 
imprimir el tablero. Volviendo de la citada rutina, el ordenador va a la 
de la línea 439 que es una rutina para examinar el posible ganador de 
la partida. Esta rutina continúa hasta la línea 559. 

Siguiendo en el bucle principal, el ordenador examina el cuadro 
central (número cinco). Si encuentra libre esta posición, coloca allí su 
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ficha y (tal como indica el final de la línea) va inmediatamente a la línea 
6, donde se llama a la rutina de impresión del tablero antes de acep- 
tar su jugada. 

Si el cuadro central no está libre, se imprime el mensaje «Espere 
un momento, por favor»; comprueba si existe un ganador y ejecuta la 
rutina de 14f a 286, si no lo encuentra, examina si el contrario dispone 
de dos fichas en línea que puedan ser convertidas en tres. De no ser 
así, el ordenador escoge entre hasta 24 movimientos aleatorios, bus- 
cando su jugada. Si no encuentra ninguna jugada, examina cada cua- 
dro secuencialmente (con la rutina de 35f a 386). Si no encuentra 
ningún cuadro libre, sabe que la partida ha terminado en empate, ya 
que antes ha examinado si existía un ganador. La línea 404 imprime el 
resultado. Después de una corta sinfonía (la rutina de 599 a 6PP), se 
reinicia el programa. 

La rutina de movimiento del jugador de la línea 629 le permite 
entrar sus tiradas mediante la función INKEYS$, de forma que no es 
necesario pulsar ENTER después de seleccionar un cuadro. 

El juego está totalmente ejecutado mediante un ciclo sin fin de la 
línea 69 a la 19P, imprimiendo el tablero, aceptando sus tiradas, impri- 
miendo el tablero, examinando la existencia de un posible ganador, 
haciendo una tirada, etc; hasta que termina el juego. La ventaja de 
hacerlo así es que usted puede modificar las distintas partes del pro- 
grama, mejorándolas a su gusto sin necesidad de afectar al resto del 
programa. 

Si desea mejorar el programa (aunque sea a costa de que el pro- 
grama resulte más predecible), puede actuar en la sección de búsque- 
da aleatoria de las jugadas, predeterminando el orden para examinar 
los cuadros (desde la línea 299). 


29 REM TIE TAC TOE 
DÍM AS) 
38 RANDOMIZE 
549 BORDER 1: INK 7: PAPER 1: C 
:5Q IF RND>0.5 THEN PRINT AT 5, 
S; FLASH 1;"Yo tirare Primer... 
": FOR Ex1 TO S0: BEEP 0.08,E: N 
EXT E: CLS : 60 To 9u 
68 60 SUB 700 
74 G0 SUB 430 
38 60 SUB 629 
20 60 SUE 704 
100 GÓ SUB 439 
CELO, TÉ 1E¿A15) 20 THEN LET A(S)=1: 
G 


de REN PARA COMPLETAR FILA/BLO 
y 

130 PRINT AT 1,1; FLASH 1;,"Espe 
re un momento" 
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A T_Za? 

180 _IF_8=3 THEN LET X=1;: LET Y= 
S: LET_2=9 

190 IF B=4 THEN LET X=3: LET Z= 


200 LET Cz1 

210 IF A(X)=D AND A(Y)=D_A 

Z):0 THEN LET_A(Z)=1: GO YE 

220 IF A(X)=D AND A(Y)=0_AND A( 
Z)=D THEN LET A(Y)=1: GO TO 6 

230 IF A(X)=0 AND A(Y)=D_AND AL 
Z)=D THEN LET A(X)=1: O TO 6 

240 IF B=1 THEN LET X=X+3: LET 
Y=Y+3; LET_Z=Z+3 

50 IF B=2 THEN LET X=X+1: LET 


260, ir C<3 THEN LET C=C+1: GO T 
279 51 B<4 THEN LET B=B+1: GO T 
27875" D<2 THEN LET D=D+1: GO T 


0_15 

290 REM MOVIMIENTO AL AZAR 

300 LET B= 

310 LET C=INT (RND*9) +1 

320 _1F A(C)=0 THEN LET A(C)=1 
G0_TO 68 

330 LET B=B+ 

340 IF _B<21 THEN GO TO 310 

350 LET B=0 

360 LET B=B+1 

370 IF A(B)=0 THEN LET A(B)=1: 
0 TO 60 

390 IF 8<9 THEN GO TO 360 

390 G0 SUB 700 

400 PRINT **** FLASH 1;TAB S;"H 
emos empatado!" 

419 G0 TO 590 

430 REM MOVIMIENTO GANADOR 

440 FOR B=1_TO 4 

450 _IF_8=1 THEN LET X=1: LET Y= 
2: LET_ZE3 

460 IF _Bzx2 THEN LET X=1: LET Y= 
4: _LET_Z=7 

470 IF B33 THEN LET X=a1l: LET Y= 
S: LET_Z= 

20 IF EN THEN LET X=3: LET Z= 

499 FOR C=1 TO 3 

500_IF A(X)=A (Y) HEN_IF A(Y)=A 
yA] THEN IF A(X 00 THEN 60 TO S 
S510_IF B=1 THEN LET X=X+3; LET 
Y=Y+3: LET Z2Z+3 


LET 
“+. FL 


B 2 
THEN PRINT ** F 


EEP 2 
L ¡"Le he ganado! 
530 IF A(X)=2 THEN PRINT 


B=2_THEN LET XaX+1: 
1: 


¿TAB 5;"Me ha ganado! 
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Ajedrez 


En el año 1978, cuando los programas de ordenador para jugar al 
ajedrez eran una rareza, los lectores del semanario rumano Magazinul 
participaron en una partida de ajedrez colectiva contra un ordenador 
llamado Felix C-256. El programa fue realizado por el matemático Vio- 
real Darie, del Instituto de Técnicas de Computación de Bucarest, y su 
desarrollo requirió dos años de trabajos. Felix hacía un movimiento y 
se invitaba a los lectores a escribir el movimiento de réplica. La mejor 
respuesta se entraba al ordenador y su respuesta aparecía en la publi- 
cación de la semana siguiente. 

A pesar de las 6/0 horas invertidas en su realización, Felix no 
jugó particularmente bien y finalmente fue derrotado por los lectores 
de Magazinul. Un experto en ajedrez comentó que algunos de los mo- 
vimientos de Felix eran muy buenos, mientras que otros eran errores 
de principiante. 

El programa propuesto puede ser objeto de las mismas críticas 
que Felix. No juega un ajedrez de buena calidad y lo encontrará fácil 
de ganar, pero ha sido incluido aquí por varias razones. 

El ajedrez ha sido siempre una tentación para los programadores. 
Incluso en los inocentes días de los primeros microprocesadores fue 
un juego usado para demostrar la inteligencia de tales dispositivos. 
Para que pueda hacer frente al enorme número de permutaciones que 
ocurren en el ajedrez, el programa debe ser mucho más largo que el 
utilizado para jugar a damas o a puntos y cruces. Existen 10'” juegos 
posibles de 49 movimientos, un número parecido al número de áto- 
mos del universo. Programar un ordenador para hacer frente a este 
reto es un trabajo formidable. 

Han sido publicados muy pocos programas en BASIC para jugar 
al ajedrez. El hecho de que se pueda desarrollar uno que juegue a una 
velocidad razonable, es, por supuesto, interesante, aunque no le 
pueda enseñar a usted a jugar mejor al ajedrez. Este programa res- 
ponde muy rápidamente en la mayor parte de las ocasiones. Localiza, 
almacena y clasifica las posiciones de sus piezas en menos de cuatro 
segundos y generalmente mueve al cabo de seis a quince segundos 
después. Cuando las posiciones en el tablero se hacen más com- 
plejas, la velocidad de respuesta baja, pero el Spectrum raramente 
tardará más de cuarenta segundos en dar su respuesta. 

Después del listado se ha incluido una modificación que, en caso 
de introducirse, permite al ordenador jugar contra sí mismo. Obser- 
vando al ordenador tirando con las blancas y luego con las negras, 
puede detectar los puntos débiles del programa y, en un momento de 
especial inspiración, puede intentar mejorarlos. El programa se ha es- 
crito deliberadamente de forma modular para facilitar el acceso a las 
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secciones que gestionan las distintas piezas, por tanto usted puede 
modificar el programa de forma gradual. 

El hecho de que el programa Felix pudiera jugar ajedrez fue con- 
siderado una novedad en 1978. Esto puede considerarse sorprenden- 
te si se considera que el primer artículo serio sobre las posibilidades 
de un ordenador para jugar este juego fue «Programando un ordena- 
dor para jugar al ajedrez» y fue editado por Claude Shannon, en 1949 
(un personaje importante en el desarrollo de los ordenadores). El pri- 
mer programa no salió a la luz hasta después de una década, cuando 
Alex Bernstein y tres colegas más de IBM consiguieron hacer funcio- 
har un programa para jugar al ajedrez en un IBM 704. A pesar de este 
retrasado comienzo, actualmente existen multitud de programas e in- 
cluso varias versiones del juego para Spectrum. 

A pesar de todo, hacer un programa para jugar al ajedrez sigue 
siendo un gran reto para un programador. Una vez haya entrado este 
programa y lo haya trabajado un poco, se formará una mejor idea de 
cómo realizar un programa de este tipo. Desde este punto podrá apre- 
ciar mejor cómo funcionan las máquinas dedicadas al ajedrez y será 
capaz de intentar la construcción de un nuevo programa. Para cons- 
truir este juego se han utilizado varias ideas básicas útiles para otros 
juegos de tablero. 

La primera decisión que se ha tomado es apuntar a un objetivo 
realista. Se ha partido de una serie de esbozos de programas de reco- 
nocimiento de fichas y de toma de decisiones. Para unir estas seccio- 
nes se consideró el uso de saltos dobles, ya que los saltos triples eran 
un lujo para un programa que no jugaría particularmente bien. Se in- 
tentó la utilización de una simple rutina que suministraba n saltos, pero 
no resultó un éxito. Claude Shannon, el personaje que escribió un 
artículo sobre el juego del ajedrez en ordenadores en 1949, anunció 
que existían 19" secuencias diferentes de movimientos en una parti- 
da de 4/ jugadas. Shannon añadió que un ordenador rápido tardaría 
10” años en examinar todos estos movimientos antes de mover el 
primer peón dos cuadros. 

Se observó que 10” años era un tiempo demasiado largo y que 
cuarenta veces 10” años podría bastar para terminar con la paciencia 
de cualquier jugador. Por lo tanto, una investigación exhaustiva de las 
posibilidades de cada jugada es obviamente imposible, incluso si se 
escribiera el programa de forma que seleccionara las jugadas clave. 

A pesar de crear un programa cuyos únicos recursos sean la pre- 
visión de las consecuencias de sus propios movimientos, el número 
de combinaciones a examinar y su realización con un interpretador 
BASIC lo deberían hacer muy lento. No obstante, una vez realizado el 
juego, la velocidad de respuesta fue sorprendente, incluso para sus 
realizadores. Debe tenerse presente que un programa que tenga su- 
brutinas frecuentemente usadas situadas hacia el final del listado, se 
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ejecuta más lentamente que uno que las tenga al principio. Este fenó- 
meno se produce porque cuando se llama a una subrutina el progra- 
ma la busca desde el principio del listado línea a línea hasta que la 
encuentra. Si la subrutina está al principio, el ordenador debe analizar 
menos líneas. 

El programa se diseñó cuidadosamente, escribiendo la primera 
versión sobre papel y depurándola antes de introducirla en el Spec- 
trum. Esto permitió imaginar muchas veces la ejecución del programa, 
barajando los distintos componentes y optimizando la estructura del 
juego para hacerlo lo más lógico posible. Este procedimiento es el que 
ha permitido obtener una alta velocidad de respuesta. 

Por lo tanto, las primeras dos ideas que han inspirado este pro- 
grama han sido la necesidad de apuntar a unos objetivos moderados y 
la importancia de construir una estructura de programación que man- 
tuviera el tiempo de respuesta tan corto como fuera posible. 

La próxima idea importante es la disposición del tablero. El primer 
prototipo se realizó utilizando el sistema de numeración propuesto por 
A. L. Samuels en un artículo aparecido en el Scientific American 
(véase Strachey, C., «Systems Analysis and Programming», en Rea- 
dings from Scientific American, W. H. Freeman and Co., San Francis- 
co, 1971). 

A pesar de que el sistema funcionaba correctamente, requería 
mucho tiempo para convertir los movimientos entrados por el jugador 
en números que pudiera usar el ordenador. Se desechó el método y 
se consideró el sugerido en 1981 por Graham Charlton (coautor de 
The Turing Criterion-Machine Intelligent Programs for the 16K ZX81, 
Interface, Londres, 1982), que, además, resulta ser el que se ha 
usado en el anterior juego de DAMAS. El tablero entero de copia en 
una matriz y los movimientos se realizan cambiando de posición los 
elementos de la matriz, reemplazando un elemento de la matriz por el 
carácter de un cuadro vacío cuando una pieza abandona una posición 
y colocando el código (CODE) de la pieza en el elemento de la matriz 
que representa la posición a la que se mueve. Para imprimir el tablero 
en la pantalla el ordenador de imprimir consecutivamente el carácter 
(CHR$) de cada elemento de la matriz. El sistema de numeración de 
Charlton facilita también la conversión entre los números entrados por 
el jugador para indicar los movimientos que desea efectuar y el núme- 
ro de posición de las fichas en la matriz. 

Con el fin de que el jugador pueda utilizar la misma notación alge- 
braica estandarizada en el argot ajedrecístico, se ha organizado el 
tablero refiriéndose a las columnas con letras y a las filas con núme- 
ros. El siguiente diagrama representa el tablero rodeado por las letras 
y números de la notación algebraica y, dentro del tablero, los elemen- 
tos de la matriz asociada con su numeración: 
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ABCDEFGH 


2=N0pP20030 


La gran ventaja del sistema de numeración Charlton sobre otros 
sistemas reside en el hecho de que cualquier movimiento puede ser 
descrito como suma o resta desde el cuadro inicial. Esto puede verse 
fácilmente mediante un ejemplo. Imagínese un caballo situado en el 
cuadro 45. Un caballo en ajedrez tiene un movimiento en forma de L, 
dos cuadros y luego uno o un cuadro y luego dos. Un movimiento 
posible para el caballo desde la posición en la que está (45) es ir al 
cuadro 66, esto es sumando 21 a la posición inicial. Ahora imagínese 
el caballo situado en el cuadro 11. Sumando 21 quedaría situado en 
32, obsérvese que se trata igualmente de un movimiento legal. Del 
mismo modo desde el cuadro 52, sumando 21 se llega al 73, destino 
también legal. Los ocho movimientos de un caballo (suponiendo que 
ninguno de ellos lo coloque fuera del tablero) se obtienen sumando los 
siguientes números a la posición de inicio: 


19, -19, 21, -21, 8, -8, 12, -12 


De forma parecida, los movimientos de un peón (a parte del pri- 
mer movimiento en que se le permite saltar dos cuadros) se determi- 
nan simplemente sumando una unidad a la posición actual (es decir, 
un peón puede moverse legalmente del cuadro 45 al 46 o del 23 al 
24). Un peón consigue una captura mediante un movimiento diagonal, 
por tanto puede llegar a los cuadros +11 o —9. Sabiendo todo esto ya 
es posible programar el ordenador para investigar todos los movimien- 
tos legales desde un cuadro dado. 

Esto es lo que se ha realizado en la rutina de inicialización del 
programa. La citada rutina se encuentra a partir de la línea 2646. Pri- 
meramente (en la línea 2650) se DIMensionan una serie de vectores 
que se usarán para distintos cometidos. Entre ellos se hallan los que 
contienen los movimientos potenciales de cada pieza. El vector N (los 
movimientos del caballo) se llena con los datos de la línea 287f. Si se 
observa esta línea, se verán los mismos ocho números que han apa- 
recido anteriormente. Un modo de decidir cómo mover un caballo (es 
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el método usado por el programa, con algunas limitaciones, es gene- 
rar un número aleatorio entre 1 y 8, y examinar el elemento correspon- 
diente del vector N para ver si la posición que actualmente ocupa el 
caballo más el número contenido en el elemento es un cuadro vacío o 
Una pieza del oponente. Si se determina que es una pieza del oponen- 
te, se efectúan unas cuantas pruebas para verificar que el caballo no 
puede ser capturado y, si es así, se efectúa el movimiento. Esta técni- 
ca constituye el corazón del programa AJEDREZ. Conviene tomarse 
cierto tiempo y releer lo explicado hasta aquí para entenderlo perfecta- 
mente. Con la información aportada usted podría escribir un programa 
para jugar al ajedrez desde cero, suponiendo que dispusiera del tiem- 
po y de la voluntad para hacerlo. 

Un programa que sólo tomara decisiones tirando los dados, como 
sugiere la explicación dada, caería presa de cualquier principiante rá- 
pidamente. Por lo tanto, el sistema de generación de movimientos 
debe ser modificado en una cierta extensión, tal como se ha realizado 
en este programa. Los vectores de las piezas están situados en el 
programa como sigue: 


Caballo de 2868 a 2870 

Torre de 2884 a 2929 

Alfil de 2938 a 2974 

Reina 2994 llena el vector de la reina (Q) con los elementos de la torre y 
del alfil, porque los movimientos de la reina no son más que 
combinaciones de ambos. 

Rey de 3099 a 3010 


El próximo vector a rellenar, el vector S (línea 3924 a 3146), con- 
tiene el secreto de la velocidad del programa. Muchos juegos de table- 
ro, como DAMAS, examinan los cuadros uno a uno desde el cuadro 
superior izquierdo al inferior derecho, buscando piezas, capturadas o 
movimientos. En este caso se ha tomado otra decisión para minimizar 
el tiempo de respuesta del ordenador. Los cuadros se examinan en un 
orden que estadísticamente mejora este tiempo de forma myy signifi- 
cativa. Este orden está contenido en las líneas de datos 3P3P. A conti- 
nuación se muestran los números de posiciones a muestrear (pueden 
ser comparados con los del cuadro de la página 85): 


48 556 36 66 47 57 45 $5 
37 67 358 65 28 73 27 7? 
44 $54 26 76 38 68 17 87 
13 $3 34 64 25 75 16 86 
43 24 74 15 85 14 84 43 
53 33 635 23 73 S2 42 62 
32 33 13 72 22 12 82 41 
51 31 61 21 71 11 81 se 
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El programa siempre examina primero el cuadro 46, después el 
56, siguiendo la lista. Es interesante estudiarla unos momentos, ya 
que quizás usted mismo pugda variarla, intentando mejorar el pro- 
grama. 

Recapitulando lo expuesto hasta aquí, se podría resumir diciendo 
que a pesar de que AJEDREZ no es un programa que juegue al aje- 
drez especialmente bien, la constante fascinación que este tipo de 
programas produce a los programadores y el enorme aprendizaje que 
se obtiene de ellos justifican plenamente su inclusión en este libro. 

El listado del programa es seguido por una variación de las prime- 
ras diez líneas, que permiten que el ordenador juegue contra sí 
mismo. Esta es una buena forma de depurar el programa, ya que se le 
puede dejar funcionando un día entero jugando contra sí mismo y 
viendo si el programa aborta en algún punto. 

El sistema de numeración del teclado se ha ilustrado con algunos 
ejemplos y se ha explicado que permite expresar todos los movimien- 
tos como adiciones o substracciones desde los puntos de origen, con- 
tenidos en la matriz que representa el teclado. Los movimientos que 
puede hacer cada figura se almacenan en un vector. Tal como Q para 
los movimientos puede efectuar la reina y B para los que puede hacer 
el alfil. Se almacena también otro vector llamado S que contiene el 
orden en el que se examinan los cuadros de la pantalla. 


A continuación se representa la organización del programa: 


19-34 Información inicial. Asegura la colocación de CAP LOCK. 

40-69 Estas tres líneas reimprimen el tablero después de un 
movimiento del ordenador, esperan el movimiento del jugador 
y reimprimen el tablero. 

79-235 Este es el centro del programa y contiene toda su parte 
pensante. Se analizará con detalle posteriormente. 

2360-2469  Reimprimen el tablero después de cada movimiento y (en las 
líneas 2419 y 242) promociona un peón a reina si ha llegado a 
la última fila. 

2470-2569 Esta es la rutina del último recurso. Si el rey detecta que tiene 
problemas, intenta escapar, y si no se puede realizar ningún 
movimiento legal, la línea 2569 dirige el programa a 296, 
donde el ordenador le concede la victoria. 

2579-2639 Esta sección acepta su movimiento, llama a una subrutina de 
comentarios y permite al jugador prescribir al ordenador una 
serie de cosas. El programa pide una entrada en forma de letra 
y número (tal como A5) entrados juntos, que le indican el 
cuadro desde el que pretende moverse, e inmediatamente una 
segunda entrada idéntica para ordenar el cuadro de destino. Se 
verifica la sintaxis de la entrada, pero no si es un movimiento 
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legal. Hecho esto se le presentan unas alternativas entre las que 


debe escoger: 
Cc indica al ordenador que lo pone en jaque. 
P ordena una copia sobre papel. 
x intercambio de fichas. 
S para terminar la partida. 


ENTER para seguir con el juego. 
Una vez hecha esta entrada, las líneas 2625 y 2634 construyen 
su movimiento. 


Con esta sección se terminan las partes activas del programa, 
excepto las rutinas que comentan las capturas y la que se utiliza para 
intercambiar fichas. El resto del programa es la inicialización y se or- 
ganiza como sigue: 


2649 


2659 


2660-2679 


88 


Activa el generador de números aleatorios, iguala la variable 
MM a cero y lleva a cabo la inicialización de la variable AS (que 
acepta la primera parte del movimiento del jugador y se utiliza 
para comprobarla) a «». MM es la variable más importante del 
programa. Cuando el programa encuentra un posible 
movimiento, MM cambia de cero a uno. A todo lo largo del 
programa la variable MM se verifica varias veces y, cuando 
cambia de estado, el ordenador cesa la búsqueda de posibles 
movimientos. Si después de repetir el proceso de búsqueda 
ocho veces no se obtiene ningún resultado, MM cambia 
también de cero a uno. 


Aquí se dimensionan las matrices y vectores. 

contiene el tablero. Es la matriz principal. 

movimientos posibles para la torre. 

movimientos posibles para el alfil. 

movimientos posibles para el caballo. 

movimientos posibles para la reina. 

movimientos posibles para el rey. 

se usa para intercambiar las fichas. 

es la secuencia en la que se examinan los cuadros. 
contiene la posición de cada pieza. Cambia a cada 
movimiento. 

Estas dos líneas contienen las variables usadas por las piezas. 
En el tablero representado en la pantalla, las figuras están 
representadas por letras y el ordenador dispone de las piezas 
impresas en mayúscula situadas en la parte superior de la 
pantalla. Usted dispone de las fichas representadas con letras 
minúsculas. A continuación puede observar una muestra del 
tablero al principio de la partida: 


FVONAOZWD> 


2684-3190 
3119 


3124-3219 


3319-3389 


ABEDEREA 


Como puede observar, el tablero está construido con puntos en 
lugar de cuadros y no se han incluido gráficos definidos por 
usuario. El objetivo del programa es jugar al ajedrez antes que 
resultar bonito, pero si desea hacerlo más vistoso, añada los 
gráficos usted mismo. Para indicar un cuadro debe entrarse 
una letra para indicar la columna, seguida de un número para 
indicar la fila. Por ejemplo, su reina empieza la partida en D1 y 
el caballo del ordenador lo hace en G8. 

Estas son las variables de las piezas: 

Usted - blancas: P-112; R-114; N-110; B-98; Q-113; K-107 
Ordenador - negras: PB-80; RB-82; NB-78; BB-66; QB-81; KB- 
75 

Los vectores para los movimientos posibles de las piezas. Ya se 
han descrito. 

Hace el papel y el borde azules y la tinta blanca. Puede cambiar 
estos colores en cualquier partida. 

Esta rutina le permite intercambiar sus fichas con las del 
ordenador en cualquier momento después de jugar. El sistema 
de intercambio se realiza con la siguiente secuencia: el 
ordenador actúa como si se colocara un espejo en el centro del 
tablero y las fichas se reflejaran en él, es decir, una pieza 
situada en A2 será colocada en A7. Aunque se varían las 
posiciones de las piezas, el ordenador sigue jugando con las 
mayúsculas y el jugador con las minúsculas, resituadas todas 
en la posición anterior de sus contrarios. Cuando se selecciona 
la opción de «juego automático», se ejecuta el intercambio de 
fichas a cada jugada y se refresca la imagen de la pantalla cada 
dos jugadas. Así puede seguir el juego como si fuera uno de los 
participantes. 

Si su movimiento tiene su fin en un cuadro ocupado por una 
figura del ordenador, éste lo detecta en la línea 2625 y usa esta 
rutina para comentar su captura. El borde cambiará de color 
intermitentemente tres veces, se mostrará el mensaje «¡Me 
cazó!» y se oirán unas notas musicales. 
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Finalmente y antes de entrar en el listado del programa, se pro- 
fundizará en el funcionamiento del programa. Con vistas a la mejora 
del programa usted debe conocer las distintas secciones para poder 
abordar la adecuada a cada modificación. 

En la línea 7f la variable MM contiene el movimiento de la máqui- 
na. Se iguala a cero después de cada movimiento. Si quiere mover 
primero, puede borrar la instrucción GOTO 6f al final de la línea 39. La 
variable UK cuenta el número de ciclos que el programa tarda en en- 
contrar un movimiento. Se usa para asegurar que el rey no se moverá 
sin tener una buena razón para ello y para evitar que el programa le 
conceda la victoria fácilmente. Las próximas líneas (89 a 149) ejecu- 
tan los deseos del jugador expresados en su movimiento. 

La línea 114 dimensiona el vector T. Se dimensiona a cada ciclo 
para inicializarlo e igualar a cero cada uno de sus componentes, que- 
dando así listo para almacenar las posiciones de cada pieza. U es la 
variable que cuenta el número de piezas que el ordenador tiene en el 
tablero. «Espere un momento, por favor» aparece en la parte superior 
de la pantalla mientras el ordenador busca su jugada. La rutina de las 
líneas 129 y 134 apunta a cada uno de los cuadros del tablero en el 
orden dictado por los elementos del vector S, almacenando el conteni- 
do de cada cuadro en el vector T y contándolos. A la variable KM se la 
podría llamar el marcador del rey, ya que es la que se encarga de 
seguir permanentemente la pista a la figura más valiosa del tablero. 
KM se iguala a la posición del rey al final de la línea 12f. La línea 134 
completa el bucle. Como se ha mencionado, U cuenta el número de 
piezas existentes en el tablero. Si U es menor que tres, el ordenador le 
concede la victoria. 

La acción va ahora a la línea 589 donde la variable Z se iguala al 
marcador del rey (KM). La rutina siguiente, desde esta línea hasta la 
816, comprueba si el rey está en peligro. Esta comprobación se hace 
aunque usted no haya anunciado jaque al hacer su movimiento. Si se 
detecta algún peligro, el ordenador va a la línea 1719 para intentar 
evitarlo. 

Volviendo al principio del programa, a la línea 156, el programa 
busca a su rey y lo coloca al final de sus piezas, de forma que éste no 
se mueva si existe otra alternativa. En este punto la máquina sabe si el 
rey está en peligro, ya que se ha examinado esta posibilidad en la 
línea 580, si no es así, no conviene mover el rey y exponerlo a una 
posición menos segura. 

La línea 174 escoge la pieza de la secuencia con la que se empie- 
za la búsqueda, escogiéndose una de las tres primeras. La pieza es- 
cogida es necesariamente la primera si el jugador ha señalado jaque 
al final de la línea 170. Si el número escogido es menor que el número 
de piezas del tablero, se incrementa el valor de Q para determinar qué 
elemento del vector T será el que empezará la búsqueda. 
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La línea 190 iguala la variable Z (que se usa para almacenar el 
cuadro de partida) al elemento del vector T escogido y el programa 
salta tres líneas a una subrutina que empieza en 23f. Se produce un 
BEEP en la línea 234 que informa que el ordenador está trabajando. 
Este BEEP suena de cuando en cuando para demostrar que el progra- 
ma sigue en funcionamiento, aunque cada vez tiene más dificultades 
para escoger un movimiento. 

Las cuatro líneas siguientes envían el programa a distintas subru- 
tinas dependiendo de la pieza que se considere. De los destinos de 
estas líneas puede descubrir las secciones del programa que intentan 
capturar: 


Reina — 820 

Torre — 1300 
Caballo — 1549 
Peón — 2070 


La línea 28f retorna a la 2990, donde se examina MM. Si es igual a 
Uno, el programa va a la línea 2314 para hacer el movimiento y des- 
pués vuelve a la línea 49 que llama a la subrutina de reimprimir el 
tablero antes de permitirle entrar su movimiento. Si MM es igual a 
cero, el programa sigue a la próxima línea y, si Q es menor que U, 
envía la acción a la línea 180 donde se incrementa Q y prosigue la 
búsqueda. Si Q no es menor que U, significa que se ha comprobado la 
posibilidad de captura de todas las piezas sin éxito. 

Desde este punto el programa salta a la línea 2180 (a pesar de 
intentar un flujo correcto del programa, el tiempo de respuesta ha obli- 
gado a estos saltos), donde Q se iguala a un número aleatorio entre 
cero y cuatro (mediante el doble uso de RND para intentar sesgar el 
resultado hacia números pequeños). Se comprueba que este número 
no exceda del de piezas disponibles. Usted puede cambiar el cinco de 
esta expresión por un número mayor para reducir la predicción del 
juego. Se puede colocar cualquier número hasta el nueve incluido. En 
la línea 2190 se suma uno y se iguala a Z la pieza seleccionada. Los 
destinos de las subrutinas delatan las secciones donde se puede en- 
contrar el control de las distintas piezas: 


Peón — 2140 

Caballo — 1630 

Alfil — 1429 

Torre —1180 

Reina — 940 

Rey — 171f (solamente si el rey no está en jaque y el número 


aleatorio es inferior a .07, para evitar movimientos 
inútiles del rey). 
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Una vez que el ordenador ha ejecutado la subrutina escogida, 
comprueba si la variable MM aún es cero. Si es así, y no han sido 
examinadas todas las piezas, el programa va a 218f para escoger 
una nueva pieza. Si MM se ha convertido en uno, el ordenador va a la 
subrutina de la línea 231f para efectuar el movimiento y luego vuelve 
a la línea 49 para reimprimir el tablero. La próxima línea examina el 
valor de la variable UK y, si es mayor que ocho, resulta que el ordena- 
dor ha ejecutado la rutina de búsqueda más de ocho veces, por lo 
tanto, va a la línea 2969 para concederle el juego. 

La próxima secuencia efectúa el movimiento del ordenador. La 
línea 2316 rechaza nueve veces de cada diez el movimiento del rey, si 
éste no está en jaque, igualando MM a cero y volviendo a 2189 para 
examinar el posible movimiento de otra pieza. Se activa la línea 2312 
en caso de movimiento de un peón. Comprueba si el programa trata 
de moverlo hacia atrás y, siendo así, bloquea el movimiento. Si el rey 
blanco está en el cuadro al cual se tiene la intención de mover, se 
imprime «¡Jaque!» en la pantalla y el ordenador retorna a la línea 19) 
para intentar otra captura. 

Si el movimiento escogido logra pasar todas las pruebas (ésta es 
una zona del programa fácilmente modificable, si usted quiere evitar 
ciertos movimientos), la línea 2315 efectúa el movimiento y las líneas 
2324 a 2338 le informan (usando una complicada línea de programa 
para convertir el número del vector a las coordenadas del tablero) del 
movimiento realizado. La línea 234f devuelve el programa al bucle en 
el punto de impresión del tablero. 

A pesar de la rutina que determina si el rey está en jaque, el 
programa no siempre puede despejar esta situación. Puede conside- 
rar este defecto como un deseo del ordenador en concederle la victo- 
ria (o, si se siente generoso, permita al programa estar en jaque una 
jugada más). Igualmente, si el programa se pone a sí mismo en jaque 
(ocurre muy raramente), tómelo como una concesión de victoria. 


19 REM AJE z 

20 PRINT ' FAVOR COLOQUE —" 
¡ FLASH 1;" SCULAS"; FLASH_O 
"DESPUES RP E ENTER": INPUT Á 
$: CLS : PR “""Gracias, por f 
avor espere momento” 

309 G0 SUB 49: GO TO 68 

40 GO SUB so 

50 60 SUB 70 

50 G0_ SUB se 

70 LET_MM LET UK=0 

80 IF A$= THEN STOF 

90 IF A$="X" THEN PRINT AT 0,9 
; FLASH 1;"Intercambio de fichas 
": GO SUB 


3120; PRINT_AT 0,0;" 
": LET Ag=" 
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AND 


8 THEN GO TO 
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EN 60 TO S18 
)=N_THEN GO TO 1710 
THEN GO TO 680 


v=AY+1 


(ACAX)=K OR RAIAXi=P) 
550 1F_AY<9 TH 


THEN _RETURN 


S20 IF AX<11 OR AX>338 THEN GO T 
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THEN GO TO 


GO TO 1440 

EN GO TO 1550 
THEN GO SUB 290 

LET_X1=Xx 


>=B AND A(X)<=R THEN 
HEN RETURN 


OR Y>20 THEN RETURN 


42 THEN 60 TO 1840 
GO_TO 15640 


=42 THEN 60 TO_ 1600 
E 


oO e st 
HAHAHA JH JA 
» 


500 _ 059900995009 
SP--VPONOSANN +10 +00 
1NNOND0DODIDNDDIDO 
AnA ARA AAA AAA 


IF Xxx<11 OR X>88 THEN GO TO 


0 lr_MM=1 THEN RETURN 
LET X=Z+K(YK): 


9 LET YzY+1 
Q IF _Y<S THEN 


1560 IF X<11 UR X>88 


X)>865 AND A 
00 (115 THE 


OT 


>88 THEN GO TO 
(X)=N_THEN GO TO 2030 
TO 1790 


A N 
Y<3 THEN GO 


oot -X 


—W-SN xv 
TIaa 27 x 
E Ebre 


HOH? 33335 
E] 


8 THEN GO TO 

A(X)=0 OR AX) 

HEN G0 TO 1920 
HEN GO TO 1360 


IF 
IF 
LET 
LET 
LET 
IF 
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Md a a XA 
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EN G0 TO 1860 
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4-HARTNELL 
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2314 IF R(X)=K THEN PRINT aa Do, 
Jaque! LET nad 

LET UsU+1: 60 TO 199 

1 ET =A IZ); LET AIZ)=E 

2 

s 

3 


ova 


, Me muevo 
I,PZSINT (2/10); PRINT CH 

; EZ LET 
tar *EñinT Emma! iPxAS 


F 
URN 

MM=0 _TMEN GO _TO 23 
P 1 
E 

N 


po 
3H 
Zz 
3 
D 
qa 


> tHnN 
WHDEZNC UN 


1,RND+10: BEEP 
1,-RAND+10 


0,0; 
“SAT 4,0;: GO SU 


Cua (00 6) — TR IA LI 


JR 


1 STEP -1 
19; INVERSE 1;xX; 


v=19 TO 380 STEP 10 
(Y+1)=PB THEN LET A(Y+1 


IF A(Y+8)=3 THEN LET A(Y+8) 


24 PRINT CHR$ _ A(X+Y) 

2440 NEXT_Y: PRINT ÍNvERSE 1,X: 
NEXT Xx: LET_MM=0Q 

2450 PRINT TAB 10; INVERSE 1;" A 
BCDEFGH_" 

2460 RETURN 

2470 LET ZaKM 

2450 LET 0K=0 


IUNPUHWVOO MOV? DAN: 


OP IPLZOGO 
6 OUOAMOGR? GOABIBX 0000 
vu 


2490 LET Mz=Z+K(0K) 

2500 _IF _A(M)=42 OR A(M)>65 AND A 
(M3) <33_OR MM=0 THEN GO TO 2540 

2510 LET X=M 

2520 LET KM=Xx 

2530 RETURN 

2540 IF Q0K<3 THEN GO TO_2490 

2550 IF A$<>"C" THEN RETURN 

2569 GO TU 2068 

2579 INPUT "DESDE (LETRA NUMERO) 
7 "As: BEEP .008,- 

2580 IF LEN A$<>2 THEN GO TO 257? 

2590 INPUT "DESDE ";(A$);" A ? 

¿B$5: BEEP_.008,-10 

3595 IF LEN B$<>2 THEN GO TO 259 

220 LET X=10*+(CODE A$-564)+UAL A 
121 

Si LET Y=10* (CODE B5-64)+UAL 5 
(2) 


2620 INPUT 


ZID N1  OA  — 0R MO fUMPO =O 
Du DR DIUOO Zao 


2310 DATA 


"EntrE C - jaque 
P - imprimir t 
X - cambiar fi 
S - parar jueg 
ENTER - continuar 


33 75 AND A(Y)<=82 TH 
008,-3: LET A(Y)=A(X) 
46 URN 

IZE : LET MM=0: LET 
29 
(3 
38 


Z AZ 170) D 


5508, LED, $B= $1: Er 
=1 TO 99: LET A(Z)=42: 
=1 TO 64: READ X: READ 
18, 82, nes 38,56,48,8 
53,75,68,66,78*78,88,8 
17,380,27,80,37,80,47,8 
57,30,67,80,77,80,87,89 
16,46,26,45,36,46,46,4 
55,45,566,45,76,46,85,4 
15,46,25,45,35,46,45,4 
55,46,55,45,75,46,85,4 
14,46,24,45,394,46,44,4 
54,15,64,45,74,46,94,4 
13,45,23,456,33,46,43,4 
53,46,63,46,73,46,83,4 
12,112,22,112,32,112,4 
52,112,62,112,72,112,8 
11,114,21,110,31,983,41 
51,107,51,98,71,110,81 


PX 
" 
mx 


99 


100 


2969 FOR Z=1 TO 8: READ N1Z): NE 
2970 DATA 19,-19,21,-21,-8,8,12, 
2380 FOR Z=1 TO 23: READ R(Z): N 
EXT _Z 


2390 DATA 10,20,30,40,59,60,70 
23909 DATA -1,-2,-3,-4,-5,- 7 


2919 DATA -16,-20,-30,-4ó, -89,-6 
2920 DATA_1,2,3, 

2930 FOR z= 1043 287 Redo sio: N 
3949_DATA -11,-22,-33,-44,-55,-6 
2950 DATA 11,22,33,44, ES ¿26,37 
399 DATA 3118.29 56 ¿e be 

2972 DATA 0748 129 236, ss 
298% RESTORE 2890 

2990 FOR 221 TO 55: READ 0(Z): N 


000 FOR Za1 TO 8: READ K(Z): NE 
3015 DATA 1,11,9,10,-10,-9,-11,- 
Jogo_FoR Zz=1 TO 64: READ SIZ): N 
g9sa DATA 456,56,35,656,47,57,45,5 
3049 DATA 37,67,35,65,28,78,27,7 
Joso DATA 44,54,26,75,38,68,17,8 
3060 DATA 13,38,34,64,25,75,18,8 
So7a DATA 43,24,74,15,95,14,84,4 
Joso DATA 53,33,63,23,73,52,42,6 
3090 DATA 32,383,13,72,22,12,82.4 
3100 DATA 51,31,61,21,71,11,81,5 


3 
3110 O 1: BORDER 1: INK 7: C 
L5S_: RET 


Si20 ES9” 22 =11 TO 58: LET Z(Z)=A( 
3130 FOR Z=11 TO 88: LET X=Z-10% 
INT_ (2/10) 

3140 IF X=0 OR X=9 THEN GO TO 31 
o 

3150 LET_A(Z)=Z(Z+9-X+2) 

3160 NEXT_Z 

3170 FOR Z=11_TO 88: LET_M=A(Z) 
3489 1F M>=8 THEN LET R(Z)=A(Z)+ 
3199 IF M<:RB AND M>=5B THEN LET 
AIZ)=A(Z) -PB+P 


3200 NEXT_Z 
3210 RETURN 
$310 LET COMMENT=INT (RND*4): 50 
RDER RND*+5+2: GO SUB 3330+10*C0M 


2350 BEEP 1,1: BEEP 1,2: BEEP 1, 


3330 BORDER_1: RETURN 
3 RAT DENO2 En hecho" 


3 1 0; "Buen movimien 
to": G RETURN 

3350 PRI ¿"Me cazo!" 
3370 FUR 10: BEEP .05,I: 
NEXT I 

3380 PRINT AT 9,0;" a 
RETURN 


A continuación se muestran dos pantallas copiadas al principio de 
una partida: 


Es posible modificar el programa para que juegue contra sí 
mismo, obligándole a cambiar de bando a cada jugada. También 
puede obtenerse una copia permanente del juego copiando en papel 
el tablero cada dos jugadas. Para convertir el programa en «Auto- 
ajedrez», modifíquelo de la forma siguiente: 


19 RE 

18 LE 

20 PR 
¿ FLASH 
"DESPUE 
$: +0ES 
avor es 

30 60 

49 60 

70 LE 

su IF 

5355 LE 

30 IF A$="X" THEN PRINT AT 0,0 
¿ FLASH 1;"Intercambio de fichas 
“ GÓ S5UB 3120: PRINT AT e 
T ass 

109 _1F PR=4 THEN COPY : LET PR= 
1: G0 TO 110 

105 LET PR=0 

110 OIM T(16);: LET U=0: PRINT A 
T 0,0; INK RND$*S+2; PAPER 9;" Po 
r favor espere un momento " 

129 FOR GU=1 TO 64; IF RISIO))>= 
5B AND A(S(0))<=RB_THEN_LET UsU+ 
1: LET TIU)=5[0): IF A(S(Q))=KB 
THEN LET_KM=5(0Q) 
ao NEXT 9: IF U<3 THEN GO TO 2 

5 


Si no desea una impresión sobre papel, borre las líneas 15, 109 y 
195. 


Este es el principio de un juego del programa modificado: 


102 


RA DEFGH 


ENE 
PPP... 


BN 


PPP 


103 


104 


Dejar correr el programa modificado es una buena forma de com- 
probar el programa, ya que normalmente se examinan todos los GO 
TO y GO SUB. Si lo desea, elimine la impresión en papel y deje ejecu- 
tar el programa un día entero, jugando juego tras juego. Si se para en 
cualquier punto (otro que no sea concederse la victoria a sí mismo), 
podrá ver si existe algún error en el programa. 

Puede hacerse una modificación muy simple para conseguir una 
impresión sobre papel a base de muestras aleatorias del juego, en 
lugar de imprimir el tablero cada dos movimientos. La modificación es 
como sigue: 


¿,100>IF PR=0 AND RND<.3 THEN COP 
101 1F PR=0 THEN LET PR=1: GO T 
ú 110 

105 LET PR=0 


Aquí se muestran las «instantáneas» del juego obtenidas: 


105 


106 


s 
7] 
ES] 
s 
4 
3| 
2 
1 


Si está interesado en profundizar en el juego del ajedrez y su 
mecanización, existe una gran cantidad de libros y artículos sobre el 
tema. A continuación se citan algunos de los más interesantes: 


Intelligent Computer Games Levy, D., Creative Computing, noviembre 
de 1980 (págs. 158-163) y diciembre de 1980 (págs. 208-213) 


Machine Intelligence: A Function of Human Ingenuity Georgiou, C..., 
Creative Computing, junio de 1982 (págs. 124-135) 


The Sargon Chronicle Ehara, T.H., Creative Computing, mayo de 
1980 (págs. 42-44) 


World Chess Championship Computer Ehara T.H., Creative Compu- 
ting, enero de 1979 (págs. 134-136) 


Attention, Chess Phreaks! Palenik, L., Creative Computing, enero de 
1979 (pág. 78) 


Tumult and the Toronto Tournament Dowhal, D., Personal Computing, 
mayo de 1978 (págs. 98-113) 


A Romanian Rhapsody (source of the story of Felix at the start of this 
section), Friedberg, U., Personal Computing, octubre de 1978 (págs. 
76-88) 


Sargon vs. Microchess Martellaro. J., on Computing, invierno de 1979 
(págs. 26-30) 


Programming a Computer for Playing Chess Shannon, C.E., Philosop- 
hical Magazine, vol. 41 (7.* serie) (págs. 256-275) 
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Chess Skill in Man and Machine Frey, Peter W. (Springer Verlag, 
1977) 


Technique in Chess Abrahams, G., (Dover Publications Inc. Estados 
Unidos, 1973) 


The Complete Book of Chess Horowitz, |.A. y Rothenberg, e P.L. (Co- 
llier Macmillan, 1969) 
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Simulaciones de aventuras 


La venganza del castillo encantado 


Ninguna colección de programas de juegos se puede considerar 
completa sin incluir los juegos de aventuras. Se decidió incluir en este 
libro un gran programa (en términos de longitud) llamado LA VEN- 
GANZA DEL CASTILLO ENCANTADO. Se considera que el primer 
programa de aventuras que se ha producido se debe a Crowther and 
Woods, quienes escribieron un programa llamado Aventura en la Uni- 
versidad de Stanford. El programa se ejecutó en un ordenador dotado 
de varios terminales servidos en tiempo compartido y la salida se im- 
primió en un rollo de papel mediante una impresora parecida a un 
Telex. 

Aventura se convirtió en un programa enormemente popular y 
pronto aparecieron copias piratas en América e Inglaterra. Más y más 
aficionados a los ordenadores modificaron y mejoraron el programa, 
apareciendo muchas versiones, algunas de las cuales son radical- 
mente diferentes al programa original. No obstante, veinte años des- 
pués Aventura todavía se vende y algunas compañías de software de 
Estados Unidos lo tienen en sus catálogos denominado «La Aventura 
Original». 

Escribir una Aventura es un ejercicio fascinante. Es necesario 
construir un universo autocontenido y lógicamente consistente. Lógi- 
camente consistente significa que el jugador puede cruzar un puente, 
ir por una carretera, volver por la misma carretera y volver a encontrar 
el puente o una razón muy convincente, por la cual el puente ya no 
está allí, tal como «Los extraterrestres de Epsilon IV se lo han llevado 
a un museo de su planeta mediante un transportador de material». Si 
una aventura no cumple estos requisitos, se la llama aventura aleato- 
ria. Este tipo de aventuras son frustrantes y no consiguen retar al ju- 
gador. 

En LA VENGANZA DEL CASTILLO ENCANTADO la acción tiene 
lugar en un castillo donde habitan cierto número de monstruos, inclui- 
dos «un hambriento guardián», «un temible soplafuegos» y el repug- 
nante «guardián de la Laguna Negra». El jugador debe luchar (aunque 
puede intentar huir, con un cincuenta por ciento de posibilidades de 
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éxito) contra estos monstruos que vagan por el castillo. Además, apa- 
recen hasta cuatro arcones que contienen sorpresas agradables o de- 
sagradables, una botella con una poción mágica que le puede benefi- 
ciar o perjudicar y otras cosas igualmente desconcertantes. Es poco 
probable que en cada juego encuentre todos los monstruos y sor- 
presas. 

Usted no dispondrá de ningún mapa del castillo. Parte del interés 
de los juegos de aventuras consiste en tratar de deducir la relación 
espacial existente entre las distintas habitaciones que aparecen al 
vagar en el ambiente presentado por el ordenador. Para construir este 
programa se partió de un mapa del castillo escenario de la aventura. 
De esta forma las pistas que aparecen en las instrucciones PRINT 
reproducen con bastante realismo la relación entre las habitaciones. 
Se ha hecho así por dos motivos: para animarle a dibujarse su propio 
mapa al ir avanzando en el juego y para mostrarle con un ejemplo 
cómo se deben construir los ambientes de los juegos de aventuras. 
Una vez consiga dibujar un mapa que le parezca razonable, puede ir 
vagando por el castillo para comprobarlo. 

El objetivo del juego es simple y está relacionado con una trampa 
que se ha introducido para hacer la construcción del mapa más difícil 
de lo que debiera ser sin ella. Todas las instrucciones que se pueden 
dar al programa son las direcciones de marcha (Norte, Sur, Este y 
Oeste) y todas las puertas están situadas también según estas direc- 
ciones. Para dibujar el mapa debe empezar colocando en un extremo 
del papel estas cuatro direcciones. La aventura empieza en la parte 
superior del papel y usted debe ir avanzando hacia la parte inferior 
(hacia el Sur). Las primeras indicaciones del programa son las si- 
guientes: 


Te encuentras en la entrada de 
yn antiguo y prohibido castillo 
Estas en la fachada norte 
Mirando la desmoronada 
estructura, 

Te das cuenta de que el 
portalon de entrada esta 
abierto y sin guarda 


ue quieres hacer ahora? 
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La última línea («¿Qué quieres hacer ahora?») sigue a cada des- 
cripción ambiental [aparte de unas pocas preguntas tales como 
«¿Quieres beber la poción?» que exigen una respuesta «S» (si) o «N» 
(no)] y puede ser respondida de siete formas: 


Entre esto: Y el ordenador entenderá esto: 

«N» Dirección Norte 

«S» Dirección Sur (respuesta a la primera pregunta) 
«E» Dirección Este 

«O» Dirección Oeste 

«LU» Luchar 

«HU» Huir 

«Q» Finalizar juego 


Cualquier otra respuesta causará el borrado de la pantalla y su 
reimpresión. 

Los juegos en los que los participantes representan un papel, y en 
los que generalmente existe un árbitro, siguen ciertas convenciones 
que determinan que la fuerza de carácter y la personalidad se repar- 
tan al principio de la partida mediante unos dados. A partir del número 
de los dados y mediante una tabla, a los jugadores se les asignan sus 
atributos (tales como la astucia). Cuando se produce un conflicto entre 
dos personajes, el resultado del conflicto se deduce de los atributos de 
los contendientes y de una tabla. 

Para simplificar el sistema y para evitar cansarle tratando de en- 
tender complejas reglas antes de empezar a disfrutar el programa, se 
han tomado ciertas convenciones para asegurar que el Spectrum rea- 
lice este trabajo por sí mismo, generando su personalidad y la de los 
monstruos. De esta forma se podrá deducir de una manera lógica e 
imparcial el resultado de cada combate que usted sostenga con los 
monstruos. 

El argumento y el objetivo del juego son simples. Usted, como 
conocido explorador intrépido, ha llegado a las desmoronadas ruinas 
de un castillo. Siguiendo su imparable curiosidad, entra por el portalón 
del Norte, que está abierto. Una vez dentro nota que no puede salir 
por el mismo punto y se ve obligado a explorar todo el castillo buscan- 
do otra salida. Al encontrarse en la sala de la entrada «decorada con 
ricas telas», recuerda la vieja leyenda que pesa sobre el castillo. El 
último propietario fue un poderoso brujo que con su poder creó una 
legión de horrores para guardar su casa de los posibles intrusos. Esto 
había ocurrido trescientos años antes. A parte del portalón del Norte, 
que ha quedado mágicamente cerrado, la única vía para salir es la 
Laguna Negra, situada bajo el castillo, a la cual se llega mediante una 
puerta cerrada con llave. Se rumorea también que el mago, para pro- 
teger mejor su castillo, había creado una criatura de la que únicamen- 
te se conoce el nombre: El Guardián de la Laguna Negra. 
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Su personalidad se caracteriza por tres abributos: magia, fuerza y 
sabiduría. Cada criatura que se arrastra para toda la eternidad por las 
decadentes salas del castillo también tiene los mismos atributos en 


distintas proporciones. El estado de sus atributos aparece en la panta- 
lla de la forma siguiente: 


FUERZA 
SABTOLURTA 


Cuando se encuentra un monstruo y decide luchar con él (o inten- 
ta huir y no puede), sólo puede usar un atributo, pero lo puede esco- 
ger. Para hacer esta elección debe observar las diferencias existentes 
entre sus propios atributos y los de la criatura oponente, normalmente 
deberá escoger el atributo en el que tenga mayor ventaja para tener 
mayores posibilidades de ganar. Es decir, si su MAGIA fuera 24 y la 
del monstruo 4 y la diferencia entre los otros atributos fuera inferior, 
usted escogería la MAGIA para su lucha. 


Te encuentras en la sala de 
entrada que esta decorada con 
ricas telas. Las puertas estan 
en direccion Esta y Sur, y 

$e Puede ver tambien un portal 
abierto al oeste 

Hay un Sopla-fuegos Temible. Su 
sabiduria es 12, mientras que 

3u fuerza es 19 y su magia es 16 


Vue quieres hacer ahora? 
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G 
É 
3 
Esta es una sala respandeciente 
del castillo: La Gran Sala. 
Con un techo ricamente labrado. 
Puede salir hacia el Norte y 
hacia el Este por unas puertas 
dobles de donde procede una 
extrana musica. Desde las 
ventanas del Oeste se puede ver 
el Jardin y las ventanas de una 
sala commuchos cuadros colgados 
Frente a ti hay un cofre 
marcado con un gran numero 1 
Lo abriras (5 o Ni? 
Esta vez tienes una penaliza- 
cion de 5 puntos de atributo 
Y has perdido 5 puntos de sabidu 
ria 
AL final de esta crucial 
batalla, tienes: 
MAGIA: 4 
FUERZA: 4 
SABIDURIA: € 
Todo ha terminado. Necesitarias 
al menos 10 puntos en total 
Para escapar de las Jarras 
del Guardian 
Has luchado con valentia, pero 
ahora seras comido por el 
GuardidM..... 


Si este ejemplo le parece complicado, no se preocupe. El ordena- 
dor lo hace casi todo e ignora o rechaza sus entradas, si éstas no 
cumplen las reglas del juego. 

Cada lucha le da la oportunidad de incrementar el atributo con el 
que batalla si gana. Pero si pierde, perderá puntos de atributo y, si los 
pierde todos, habrá perdido la partida. Le conviene obtener tantos 
puntos de atributo como pueda con vistas al Encuentro Final. Cuando 


113 


descubra la Laguna Negra (y, para frustrarle un poco, puede estar 
situada en dos sitios; por lo tanto sus mapas no serán 100 % transferi- 
bles de partida a partida) deberá superar tres batallas, una con cada 
atributo, contra El Guardián de la Laguna Negra. 

Algún arcón de los que encontrará en el castillo puede contener 
«oro del dragón» y conviene guardarlo, porque se puede usar para 
comprar más puntos de atributo cuando encuentre al Guardián. Para 
sobrevivir debe haber superado todas las batallas y disponer de 10 
puntos de atributo de reserva. 

A continuación se describe el proceso de una lucha. Después de 
que haya seleccionado el atributo con el que quiere luchar, el ordena- 
dor mostrará en la pantalla la diferencia entre sus puntuaciones. Si, 
por ejemplo, usted decide luchar con SABIDURIA y su puntuación en 
este atributo es 15, mientras que la del monstruo es 2, el ordenador 
imprimirá (línea 524f) «La diferencia es 13», seguido de «y tu tienes 
ventaja», es decir, que su puntuación es más alta. A continuación y tal 
como se hace en los juegos de representación, una subrutina «tira» 
un dado de seis caras. El resultado es el «coste» del encuentro. Se 
genera un número aleatorio entre uno y la diferencia de puntuaciones. 
Este número se compara con su puntuación de atributo y con la del 
monstruo. El ganador es el que tiene la puntuación más parecida al 
número aleatorio. Usted puede cambiar este criterio por el contrario, si 
le parece más razonable. Si la diferencia entre puntuaciones de atribu- 
to es uno, el número aleatorio no puede ser otro que uno; por lo tanto 
ganará el participante con la puntuación más baja (con esto le sugeri- 
mos una posible trampa que le puede permitir ganar el juego). Deja- 
mos para usted el trabajo de investigar qué ocurriría si la diferencia 
entre los atributos es cero. 

En este juego ganar o perder una batalla se trata de forma muy 
distinta. Sus pérdidas o ganancias dependen del atributo que haya 
escogido y de la puntuación que tenga en el mismo. 

Para seleccionar el atributo que usará para luchar debe entrar su 
inicial (M para la MAGIA, etc.) y el ordenador usa esta información en 
la rutina de la línea 5344 para aplicar la penalización o la ganancia del 
encuentro. Si ha luchado con la MAGIA y ha perdido, se le deducen el 
número de puntos que ha salido en el dado, si los tiene. Es decir, si al 
empezar la batalla dispone de dos puntos de MAGIA y pierde, debien- 
do sufrir una penalización de tres puntos; no perderá ninguno. Como 
antes, esto resulta más simple en la práctica, ya que el ordenador 
determina si hay que aplicar o no la penalización, si pierde una batalla 
en la que ha seleccionado la fuerza la penalización como en el caso 
de la magia. Si es con la SABIDURIA con la que pierde, sólo perderá 
la mitad de la penalización que salga del dado, redondeada además 
por debajo (por lo tanto, si su penalización es uno y ha escogido la 
sabiduría para luchar, no le costará nada, ya que 0.5 se redondea a 0). 
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Resulta más divertido ganar. Usando la MAGIA puede ganar más 
que perder. Al ganar con MAGIA obtendrá un premio del doble de 
puntos de los expresados por el dado. Por el contrario, usando la 
FUERZA no conseguirá nada con una victoria (lo cual es mejor que 
perder, pero a pesar de todo no resulta conveniente luchar con los 
monstruos usando la fuerza). Ganando con la SABIDURIA obtiene la 
mitad del número del dado (recuerde que si pierde también pierde sólo 
la mitad). 

El programa tiene una estructura preestudiada y, por lo tanto, es 
relativamente sencillo llegar a las secciones que requieren sus modifi- 
caciones. (Una vez haya resuelto el mapa codificado en el programa, 
usted puede desear cambiarlo, quizá de forma que con los mismos 
elementos se pueda formar un mapa más complicado.) 

* El programa está estructurado como sigue: 


29-170 Información (en qué habitación está y dónde están las salidas) y 
principal ciclo del programa. 

2990-2059 Descripciones de los monstruos. 

4APON-494G  Confrontación Final (La Laguna Negra, las tres últimas batallas 
y el final). 

5090-5629 Acciones (entra su dirección de movimiento o su deseo de 
luchar o de huir; las luchas se dirigen en esta sección y se 
determinan las penalizaciones y premios a que hubiera lugar.) 

7999-7590 Contenidos (en esta sección podemos encontrar cosas tales 
como los cuatro arcones, la botella de poción mágica, etc.; 
estos elementos se colocan aleatoriamente en las salas). 

8009-8149 Descripciones de las salas y llamada a la subrutina de los 
monstruos. 

9004-9674  Inicialización. 

9999-9999 Rutina de sonido y retardo (se le llama repetidamente a lo largo 
del programa para añadirle color y darle la oportunidad de leer 
el contenido de la pantalla antes de borrarla). 


La parte más importante de este programa y la clave de cualquier 
programa de aventuras es el mecanismo que mantiene la estructura 
del mundo generado en el juego. Este mecanismo determina la rela- 
ción entre las distintas partes del sistema, comprobando los movi- 
mientos de forma que éstos resulten legales. Desde dos de las habita- 
ciones del castillo se puede ver el Jardín, pero no sería un movimiento 
legal atravesar el Jardín para ir a la otra habitación, ya que no hay 
puertas que lo permitan. (El Jardín se ha incluido para hacer más inte- 
resante el paisaje descrito y para permitir a los que dibujan el plano del 
castillo disponer de un punto de referencia.) 

A continuación se describe el método usado para asegurar el se- 
guimiento de los distintos componentes del sistema. No le recomen- 
damos un estudio profundo de los próximos apartados antes de pro- 
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bar el juego, ya que, al hacerlo, le resultará menos divertida la partida. 
Veamos las líneas 9574 a 968/. Estas instrucciones DATA contienen 
mucha información útil (también aparecen posiciones de reserva con 
vistas a la ampliación del programa que seguramente usted efectua- 
rá). Se analizará primero la cuarta línea del grupo (línea 96PH). Los 
primeros dos elementos son el número de la habitación situada al 
Norte. Hay un «OO», por lo tanto no existe ninguna salida hacia el 
Norte. Los dos elementos siguientes le informan que al Sur está la 
habitación siete, a continuación se informa que la habitación dos se 
encuentra al Este y por último que la cinco está al Sur. Los últimos dos 
ceros se usan a lo largo del programa para colocar el contenido de la 
habitación. 

Mediante el sistema descrito, usted puede almacenar de una 
forma muy simple cualquier mapa. Si la acción estuviera situada en la 
habitación de la línea 96PP y el jugador intentara ir hacia el Norte, el 
ordenador mirará los primeros dos elementos de DATA. Si ambos son 
cero le responde «NO HAY SALIDA» y le vuelve a preguntar en qué 
dirección quiere ir. Si encuentra un número distinto a cero, la variable 
que almacena el número de habitación (que es Z en la mayor parte del 
programa) se iguala al valor (VAL) de estos primeros dos elementos. 

El programa presentado también utiliza esta técnica de «seccio- 
namiento de palabras» para almacenar los atributos de los monstruos 
en el vector M$ y los suyos en el J$. Haciéndolo así, resulta fácil modi- 
ficarlos a lo largo del juego. Si usted derrota a un monstruo en una 
habitación y reduce su MAGIA a (por ejemplo) 9, si lo vuelve a encon- 
trar en otra habitación, sus atributos deben haber quedado modifica- 
dos. Si este encuentro se repitiera muchas veces, usted podría des- 
truir al monstruo. Si se consigue que un elemento de la historia sea 
independiente del punto donde se encuentra, el programa resulta 
coherente. 

Supóngase una Aventura con un universo muy simple. Sólo cua- 
tro habitaciones relacionadas de la forma siguiente: 


na E 
Lale Ss 
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Las puertas se simulan con trazos más gruesos en las paredes. 
Las habitaciones y su situación podrían describirse de la siguiente 
forma: 


Habitación 1 «D0939290» (nada al Norte, la habitación 3 al Sur, la 2 al 
Este y nada al Oeste) 
Habitación 2 «P594G0H1» (nótese que el «exterior» de nuestro universo 


ha de quedar identificado) 
Habitación 3 «D1000000» (pocas salidas en esta sala) 
Habitación 4 «D290000P» (tampoco en ésta) 


Suponga que estamos situados en la habitación dos. La instruc- 
ción PRINT que describe la habitación podría decir: «Es una habita- 
ción pequeña y cuadrada. Hay una puerta hacia el mundo exterior en 
la pared Norte, otra hacia el Sur y una más al Oeste. ¿Hacia dónde 
quiere ir?» Si el jugador contesta «E», el ordenador mira los «elemen- 
tos del Este» del DATA que representa la habitación dos (son los ele- 
mentos quinto y sexto) y ve que sólo hay dos ceros. Ahora el ordena- 
dor sabe que el jugador no puede moverse en esta dirección y le infor- 
ma: «No puede atravesar las paredes», quedando a la espera de una 
nueva dirección. Si el jugador entra «S», indicando que desea ir en 
dirección Sur, el ordenador mira a los elementos tres y cuatro de la 
misma habitación y encuentra el número «04». Esto significa que el 
jugador se va a mover de la habitación dos a la cuatro. La variable que 
almacena la habitación en la que se encuentra el jugador se iguala al 
valor (VAL) de los elementos consultados. Nótese que en la instruc- 
ción PRINT se describe la habitación dos y sus salidas, pero no se 
informa del número de las habitaciones contiguas. Esta información 
está contenida en la instrucción DATA y no se muestra en la pantalla. 

Le sugerimos entrar el programa y ejecutarlo hasta que empiece 
a entender su funcionamiento. Esto le dará una idea del plano del 
castillo. Le será fácil dibujarlo si hace una serie de cuadros en un 
papel y les pone nombres a medida que el programa los vaya descu- 
briendo, pintando además corredores de conexión entre ellos de 
acuerdo con las informaciones que aparezcan en la pantalla. Este pro- 
ceso lo puede repetir varias veces hasta que el mapa sea seguro. 
Después de ejecutar el programa varias veces, puede volver al libro, 
seguir el listado del programa y examinar los métodos de modificación 
que se describen. 


3 BEN 930 
18 REM LA VENGANZA DEL CASTILL 
O ENCANTADO 

30 GO _SUB guna 

39 CLS 

358 1F Us="000000" THEN GO TO 9 
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PRUSE: PRINT encontrado al 
peor enemigo” it castillo: El 
Hombre _Lob0." n una fuerza d 
e "¡Mg(5,4 TO $);", Sabiduria de 
“"5Hm5(5,6 TO 7); y Una magia de 
",M$6(5,2 TO 3);" , es un enemig 
o dificil de vencer” 
2060 GO0_SUB PAUSE 
2070 RETURN 
Z090 REM RAEXERELARA RES 
40900 REM FINAL DEL JUEGO 
4010 PRINT "Has caido en el pant 
ano de”, “fango que rodea La Lagu 
na Negra","bajo el castillo. Par 
3 escapar", "del castillo debias 
haber", "luchado con el Guardian 
de la", “Laguna Negra" 
4020 PRINT “"En La lucha deberas 
usar todos", "tus atributos... Y 
", "vas a necesitar 10 puntos par 
a, “escapar” 
4039 GO SUB_ PAUSE 
4040 IF MONEY>0 THEN PRINT “Tien 
es "¡MONEY;" Ptas. en oro" 
4050 60 SUB PAUSE 
4050 PRINT "Los atributos del Gu 
ardian:" 
4079 PRINT TAB 3; "MAGIA: "¡M4(6, 
2 TO 3) 
4989 PRINT TAB 3; "FUERZA: "¡MS(6 
, J 
4090 PRINT TAB 3; "SABIDURIA: "¡M 
$16,5 TO 7) 
4100 PRINT "Sus atributos son:" 
4119, PRINT TAB 3; "MAGIA: “"¡JU$ 1 
0.2 
4120 PRINT TAB 3; “FUERZA: "¡Us (5 
3 
4150 Sano TAB 3; “SABIDURIA: ";3J 
$5 TO 6) 
4140 60 SUB_PAUSE 
99 IF MONEY<100 THEN GO TO 427 
4159 PRINT "Puedes comprar punt 
os de", "atributo a 100 Ftas cada 
uno” 
4170 "Si iprar 
5, e as a 1 
tó q e 
ero” 
4150 ARINE ra 
si RN 
4130 
Es 
4200 IF SE N" THEN GU TO 4270 
4310 INPUT FLASH 1,"Cantidad? '; 
4220 IF MONEY-AM<1 OR AM<100 THE 
N GU TO 4210 
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4520 PRINT "La diferencia es ";D 
4530 IF MH>MG THEN PRINT "y tu yg 
IF MG>MH THEN PRINT "y el G 


ian gana” 
O SUB PRUSE: LET COST=INT 
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4370 LET_C=VAL (J$í5 TO 6)) 

4350 60_5UB PAUSE 

43390 PRINT '"AlL Final de esta cr 

ucial", "batalla, tienes: 

4909 PRINT TAB 3; "MAGIA: 

4210 PRINT TAB 3; "FUERZA: 

4920 PRINT_TAB_3;"SABIDURI 

4930 IF _A+B+0>9 THEN FPRINT 

35H 1, BRIGHT 1; PAPER 7; 1 

Lo hás logrado, Oh heroe d 5 
tos oscuros y peligrosos”, "tienmp 

o o te nombro "; INVERSE 1,5 
i INVERSE 0;" "¿N$: GO SUB PA 
USE: 3TOP 

4940 PRINT "Todo ha termimado. N 
ecesitarias”", "al menos 10 puntos 
en total", "para escapar de las 

garras" ","del Guardian" 

4350 PRINT '"Has luchado con val 

entia, pero", “ahora 3eras comido 
por 21", "GuardidM+.....” 

4350 G0 SUB PAUSE: STOP 

4970 REM EXEXERERFACEAE 

5000 REM SUBRUTINA DE ACCI 
pe Ds4: IF B$iZ,9)= 9 THE 


SO19,PRINT “"Que quieres hacer a 
5915 INPUT 24: 1F Z5="0" THEN ST 
$030 1F Z6="" TMEN CLS : LET Z4= 
s022 IF _(Du4 AND Z$<>"LU") OR (D 


=4_AND CT coll THEN LET D=0: 6 
0 TU 516 


S02S IF Z24="LU" OR Zó="HU" THEN 
so To s130 
S030 1F Z$="N"_AND B$1Z,1 TO 2)= 
“00” THEN _PRINT_, “NO SE PUEDE SA 
LIR": G0_TO 5010 
soso 1F 24="5" AND B$1Z,3 TO 4)= 
"Qu" THEN PRINT “POR AQUI NO HAY 
PUERTA": GO_TO 5010 
s350 1F_26= E: AND.BSIZ,S5_TO_S)= 
“QQ” THEN PRINT_ "ESTO NÓ ES POSI 
ELE": GO_TO SQl0O 
Suso IF 26="0 AND BS(Z,7 TO_8)= 
"90" THEN PRINT_"NO PUEDES _ ATRA 
VESAR_ LAS PAREDES": GO TO 5010 
S070 IF Z4="N"_ THEN LET Z=VAL (B 
$12,1 710_2)): RETURN 
5080 IF Z4="5" THEN LET Z=VAL (5 
$12,3 T0_4)): RETURN 
Sogó_1F 24 E" THEN LET Z=VAL (8 
Eg IO RENOR 

198 1 2850" FUEN LET Z=VAL (B 
FIEg7 io 91)s RETURN 
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T U$S TO 5)1=5TRS ( 
68))-COST) 
40 
ORIA_HUMAN 
FLASH 1; BRIGHT 1; 
2;"Lo has derrotad 
="M" THEN_LET J$(1 TO 
(3$(1_TO0_2))+2*C05T 
(M$ (0,2 TO 3))>=C05T T 
T_M$(0,2 TO_3)=STRS ¡VAL ( 
Eo 3))-CcOosT! 
$="F" THEN LET_MS(0,4 T 
(VAL (M$(Q0,4 TO S))-CÓ0 
FO Z5="S" THEN_LET J$(5 TO 
$ (J$ 15 TO S)I1+INT (0 
d: AL (MBA(O,6 TO 7j)>= 
THEN _LET_M$(9,6_TO_7)=STRS 
M$(0,58 TO_7))-005T) 
O SUÉ PRUSE 
PRIN ¡Despues de esta Lluch 
4 


tributos son: " 


2) 
seño, PRINT TAB 3; "FUERZA: "¡JA IS 


esto A TAB 3; "SABIDURIA: ";J$ 
S490 PRINT "Y los del 
S500 IF G=1 THEN PRÍNT “gbardian 


S510 IF 0=2 THEN PRINT "Temible" 
5520 IF 0=3 THEN PRINT "Alma-en- 


pena" 

3339 IF Q=4 THEN PRINT "Rompe-ro 
i as” 

5549 1F 0=S THEN PRINT "Hombre-L 

obo" 

5550 PRINT "son: " 

zo ARENA TAB 3; "MAGIA: "¿MS$(O, 

5579 PRINT TAB 3; "FUERZA: "¡;M6(0 

J 

5850 PRINT TAB 3; "SABIDURIA: ";M 

$(0,6 TO _7) 

55390 G0_ SUB PAUSE 

000 PRINT "Pulsa ENTER para con 
inuar" 

S610 INPUT T4: GO SUB PAUSE: CLS 

55620 LET K=2+INT (RND+S) 

5630 IF_K=Z THEN GO TO S620 

5640 LET B$!K,9)=B$(2,9) 

5650 LET B$5(Z,9)="0" 

5660 IF RND>.S THEN RETURN 

7000 REM_ CONTENIDO 

7005 _ IF B$(2,9)<>"0" THEN LET M= 

1: RETURN : REM NO TE CONCEDE *C 
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OÚNTENIDO” SI HAY UN MONSTRUO PAR 

A LUCHAR 

7010 PRINT : GO SUB 7000+100*INT 
(RNDES+1) 

790290 GO _ SUB PAUSE 

7030 RETURN 


7109 LET CHEST=CHEST+1: IF CHEST 

=5 THEN _ RETURN 

7110 PRINT "Frente a ti hay un c 

ofre", "marcado con un gran numer 
¡CHEST 


20 PRINT “"Lo abriras (5 0 NJ)? 
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Z4="N" THEN RETURN 
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7300 IF NEL er RETURN 


oN 
7325 G0 SUB 7600: 1F ZN THEN 
AETUAN 
30 IF RND>.S THEN PRINT "No pu 
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USE: RETURN ¡ 
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co." "Quieres leerlo (S o N) 
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S-HARTNELL 


O PRINT “Hola, "¡Ns: PRINT_"P 
favor espera_un MOMENtO..." 
20 REM FILL_ROOMS 
30 FOR T=1 TO 12 
10 READ TS 
SO LET_OS$ÍT)=T8 
60 NEXT_T 
55 LEL,BS1(10+INT (RND+2)),3 T 
="”] m 
33729 RÉM DISTRIBUYE Y CREA MONET 
3550 LET M6(1,-1=STRS (INT (RND+ 
2)+1) 
3398 FOR A=2 TO 5 
3400 LET Ms 1A,1)=STRS (INT (RND+* 
J 
3440 LET SS (VAL (M5(A,1)),9) =M5( 
sd 4 
$450 NEXT_A: LET B$(1,9)="0" 
3450 REM CARACTERISTICAS 
9470 FOR A=1 TOS ] 
3480 LET ME(A/2 TO 3)=STRS (INT 
(RND+11) +10) Ñ 
aso LET MBlA,4 TO S)=STR$ (INT 
(RND+11) +10) ; 
2500 LET M$(A,5 TO 71=STR$ (INT 
(RND+11) +10) 
9518 NEXT_A . 
23520 REM CARACTERISTICAS HUMANAS 
9530 LET J4(1 TO E)=3TRS CINT (R 
NDF11) +10) 
9540 LET U$I13 TO 4)=5TRS (INT (R 
ND£11) +10) 
9850 LET U$IS TO B)=5TRS (INT (R 
NDF11) +10) 
9568 RETURN 
9570 DATA "9O0B2UBBADA” 
29580 DATA "DA0303B4D0" 
3599 DATA "DOQUADAZOD* 
3600 DATA "2007020500" 
3610 DATA “2OUSV4V00D* 
23620 DATA "9510070000' 
2530 DATA “D480000500* 
3640 DATA "DEBUULDVAN* 
3650 DATA "9811000890" 
3650 DATA "V54UVLIDDA * 
39670 DATA “DIDAVALADA* 
3680 DATA "2UBALLADAO * 
3890 REM_PAUSA RUTINA 
9900 POKE 23692,-1: IF RND>.5 TH 
EN GO_TO 9959 A 
490S FOR I=RND*10 TO RND+30+10 5 
TEP .S 
9910 'BEEP 9.03,1 
9920 NEXT_I 
3930 PRINT 
3940 RETURN 
9950 FOR lel TO_SQ 
$960 IF RND>.? THEN BORDER RND*7 
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Ahora que ha sobrevivido (o no) en el CASTILLO ENCANTADO 1, 
puede complicar un poco el plano e intentarlo de nuevo en el CASTI- 
LLO ENCANTADO ll. Para desgracia de los ecologistas, el Jardín 
(que antes estaba situado en el centro del Castillo) ha sido colocado 
en el exterior. Al menos se puede ver a través de algunas ventanas, lo 
que le ayudará en sus averiguaciones. 

Primero puede cambiar las instrucciones DATA de la forma si- 
guiente: 


70>PRATA "YOABVALULVPA* 
3829 BATA 0207839989" 
9590 DATA "vuegaVa0700" 
2600 DATA "A0UI0SUIAVD" 
96109 DATA "Y9eu0A50UaDI0a” 
29620 DATA "950100900" 
96309 DATA "Yue0RUI3UA0A*” 
3640 DATA "0911000003" 
3650 DATA "vaV0SLEVLSGO" 
366€ DATA "04120005600" 
35670 DATA "9880120000" 
25680 DATA "vdvLauaVneVa” 


También será necesario cambiar un poco las descripciones de las 
salas. Para que resulte más fácil la modificación, las palabras nuevas 
se han colocado en mayúsculas. Nótese que en la línea 8$34 no es 
necesario efectuar ningún cambio. 


S000>REM CONTENIDO HABITACIONES 
35010 IF Z=1 THEN PRINT "Te encue 
ntras en la entrada de*",'“un anti 
guo Y prohibido castillo", Estas 
en la Fachada OESTE", “mirando a 
L ESTE la desmoronada”,"estructu 
ra.",, "Te das cuenta de que el”, 
“portalon de entrada esta","abie 
rto y sin guarda" 
35020 IF Z=2 THEN PRINT "Te encue 
ntras en .a sala de", "entrada qu 
z esta decorada con", “ricas tela 
5. Las puertas estan","en direcc 
ion NORTE y Sur”: REM BORRE EL R 
ESTO DE LA _ LINEAR ORIGINAL 
5030 IF Z=3 THEN PRINT "Esto es 
solamente un almacen+.", “Solo tie 
ne Una salida, la que", has Uusad 
o para entrar, al oeste” 
3040 IF Z=4 THEN PRINT "Estas en 
una sala pequena con”,"una vell 
a escultura a la Diosa","de la L 
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una en un pedestal 
na Nordeste, Es la 
. Las puertas esta 
E Y POF LA VENTANA 
RDIN"” 
5050 IF _Z=S THEN PR "La Sala 
de las Conspiracion *, “una hab 
itacion forrada en” adera, lle 
na de rumores i","s rros, con 
salidas al OESTE" ," Sur, de 
la que llega un ,"o 3 azufre 
3 un ambiente” ,"sob tural. LA 
VENTANA DE LA","PA NORTE PER 
MITE VER _ EL", “JARDI 
5060 IF Z=5 THEN PR "Has entr 
ado en la Guarida d “Brujos, £ 
on un cazo hirbiend "en un fue 
yo de llamas verdes ¿“la esqu 
ina Sudeste, , "Esta a con hed 
or de azufre", "y el de Viejo 
s sortilegios”, La es _abando 
nas hacia el”, "Nort ESTE o Es 
Es 
5070 IF Z=7? THEN PR "Te encue 
ntras en un lugar q “parece t 
ranquilo y apacible 'Es la Gal 
eria de Pintura de Castillo, 
con un gran cuadro el legenda 
rio Guardian de La aguna Near 
aa la izquierda d La PUERT 
de la pared NORTE. Las salidas 
son hacia el MNorte”","y hacia el 
ESTE" 
$380 IF Z=8S THEN PRI Esta es 
una sala respandecie “del ca 
¿tillo: La Gran Sala.”.“Con un t 
echo ricamente labra ", "Puede 
salir hacia el SUR y” cia El 
NORTE por unas puert dobles 
de donde procede una trana má 
usica." 
3090 IF Z=9 THEN PRINT "La music 
a de un Cu e", “cuerda lle 
na la sala ,"“abandonar la 
sala Pp puertas situada 
s al ES una hacia el S 
ar 
5995 REM NOSE” QUE SE SUPRIMEN 
LOS _IF-THEN DE LAS 
SIGUIENTES DOS 
LINEAS 
3100 IF Z=10 THEN PRINT "Estas a 
hora en el Santuario del","Silen 
cio. Una sala fria y", "humeda. T 
iene Una salida hacia”, "el OESTE 
y una hacia el Su 
5110 IF Z2=11 THEN Este de 
be ser el Vestibul Las Apa 
riciones, Una Uscu la, don 


de la L 
nozhes 
an de L 
puerta 
L ESTE” 
3120 PR 
4909 
S125 IF 
AND_RN 
RE ENT 
ENER 
3130 1F 
CAL (BS 
3140 RE 
5150 RE 


No hay ninguna razón para no seguir trabajando sobre este pro- 
grama, desarrollando tantas versiones del mismo como desee. Puede 
empezar con los mismos nombres de las salas y con el mismo número 
de ellas (12), rehaciendo el mapa mediante las instrucciones DATA y 
PRINT, que ya han sido modificadas en la última versión. Después 
puede tirar el mapa y tratar de olvidar sus detalles, creando por sí 
mismo un nuevo castillo. Puede incluso intercambiar «castillos» con 
sus amigos, a fin de conseguir un juego cada vez más sofisticado. 

A pesar de que su programa debe ser representable en un mapa 
(sino no sería necesaria ninguna lógica, sería suficiente generar ins- 
trucciones PRINT de forma aleatoria cada vez que pulsara ENTER), 
puede hacer las interconexiones entre las habitaciones tan diabólicas 
como las pueda imaginar en dos dimensiones. También es fácil añadir 
más monstruos, si desea llenar más las estancias del castillo. 

Una vez bien conocidas las posibilidades del diseño actual del 
castillo, puede doblar el número de habitaciones, incrementando el 
vector B$ y añadiendo las instrucciones DATA y PRINT, que harán 
coherente el conjunto. No recomendamos abordar esta modificación 
sin conocer perfectamente el programa original y haber realizado al- 
gunas variaciones sobre él con 12 habitaciones. Los monstruos están 
almacenados en el vector M$. 

Quizá los cambios más fáciles a realizar sobre el programa origi- 
nal son los de los contenidos de los cofres, los efectos de beber la 
poción mágica y el resultado de leer, o de intentar leer, el «rollo de 
papiro». En su versión original el juego presenta una sola vez «la pe- 
queña caja dorada», la poción y el «rollo de papiro», y cuatro veces los 
cofres numerados. Sin embargo, el contenido de estos elementos 
puede variar cada vez que aparecen y cierto contenido puede «saltar» 
de uno a otro cofre. (Cuando haya sido mordido en el cuello por cuatro 
vampiros, reduciéndose cada vez su fuerza, quizá deseará evitar que 
se sigan reproduciendo en todos los cofres del castillo.) 
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Seguramente pensará que es una pena disponer de un ordena- 
dor con la capacidad gráfica del Spectrum y hacer un juego con una 
salida en forma escrita, aunque subrayada mediante instrucciones del 
tipo FLASH, INVERSE y BRIGHT. Sin duda, la mayoría de los jugado- 
res preferirán disponer de las escenas representadas en forma de di- 
bujo. No obstante, el listado del programa resulta ya muy largo y, si lo 
fuera mucho más, sería muy pesada su introducción en el ordenador. 
Los programas que crean cuadros detallados son una larga serie de 
instrucciones DRAW y PLOT, siendo necesario editar un gran número 
de líneas para conseguir una figura interesante. Sobre el programa 
propuesto, usted puede ir sustituyendo las instrucciones PRINT de 
descripción de las distintas salas por series de PLOT y DRAW. Si se 
siente con ánimos de desarrollar una variante gráfica de este progra- 
ma, hágalo y podría ser incluida en ediciones posteriores de este libro. 
Para ello háganos llegar sus programas. 

Si no desea llegar tan lejos, puede dar a las descripciones escri- 
tas de las habitaciones distintos colores y diferenciar las descripciones 
de los monstruos con una melodía distintiva. En las líneas 201 a 2059 
puede insertar fácilmente informaciones de color y música mediante 
instrucciones del tipo «IF Q = ... THEN». Otra alternativa al dibujo de 
cada habitación y de cada monstruo es definir un bloque de gráficos 
de usuario para cada habitación y cada monstruo y construir con este 
bloque un borde para cada uno. También se puede llenar la pantalla 
con estos bloques, antes de que aparezcan las descripciones escritas. 


Otros escenarios 


Si no logra entender perfectamente el programa o prefiere iniciar 
los cambios antes de dibujar minuciosamente el mapa del CASTILLO 
ENCANTADO, puede modificar sustancialmente el programa sin va- 
riar su lógica. Si mantiene las salidas y las entradas en sus mismas 
posiciones, puede cambiar los nombres y las descripciones de las 
salas. Por ejemplo, podría describir toda la historia a bordo de una 
nave abandonada en el espacio en una órbita que desciende lenta- 
mente hacia un asteroide habitado por una extraña raza de extrate- 
rrestres. En lugar (o además de) los monstruos, puede disponer extra- 
ños y peligrosos artefactos, como androides que patrullan la nave, 
guardando una raza que ha partido muchos siglos antes. El objetivo 
de su búsqueda puede ser el motor de propulsión que resultará ser de 
una tecnología radicalmente avanzada. Una vez encuentre la sala de 
motores (que resultaría ser La Laguna Negra del Castillo Encantado), 
encontrará una fuerte defensa controlada por el Spectrum, que deberá 
vencer. 
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En lugar de hablar de MAGIA, FUERZA y SABIDURIA, sus atribu- 
tos podrían ser oxígeno, raciones de comida y cartuchos para su pisto- 
la de rayos laser. No sólo puede canviar los atributos del programa 
original, dándoles distintos nombres, sino que puede añadir más (tales 
como habilidad o nervio). Al jugador se le puede permitir que distri- 
buya sus atributos como prefiera, partiendo de un total de, por ejem- 
plo, 94 puntos de atributo, en lugar de hacer esta distribución median- 
te un dado al principio del programa (o mediante un generador de 
números aleatorios, que es prácticamente lo mismo). 

Otro método para distribuir los atributos al principio del juego es 
permitir al jugador escoger el «tipo» de persona que quiere ser (sacer- 
dote, mago, ogro, luchador, ladrón o cualquier otra cosa). Con cada 
identidad queda asociado un grupo de atributos. 

Se puede utilizar la estructura original del programa para conte- 
ner una pirámide que usted puede explorar antes de que sea destrui- 
da para dejar espacio a una nueva presa en el Nilo. Puede reseguir los 
túneles, explorando las secretas cámaras de la pirámide, hasta llegar 
a la cámara mortuoria (La Laguna Negra del Castillo Encantado), 
donde debe superar una gran batalla para obtener su botín. 

Con estas ideas puede ver que es fácil modificar la estructura de 
un programa de aventuras para obtener un nuevo juego que puede no 
tener ninguna relación con el original. Después de algunas experien- 
cias modificando estos programas, seguramente se animará a elabo- 
rar uno propio. Puede tomar muchas ideas de programas comerciales 
para Spectrum o para otros ordenadores. Algunos de ellos, quizá sor- 
prendentemente, no están basados en «realidades coherentes», sino 
que dependen de números aleatorios, sin presentar un universo que 
pueda concretarse en un mapa. 

Es posible experimentar entretejiendo distintos programas, aña- 
diendo un laberinto de tres dimensiones en un punto del recorrido o un 
examen de reflejos para evaluar su aptitud para el combate. 

Finalmente recuerde que, al escribir un programa de aventuras, 
es esencial enunciar un objetivo claro (recolectar tesoros o matar dra- 
gones resulta aburrido, a menos que esto pase en su travesía hacia un 
gran problema: obtener algún final bien supremo o escapar vivo de la 
cámara de torturas). Además del objetivo, las distintas actividades de 
la aventura deben estar relacionadas con él. 

Como ejemplo, en el Castillo Encantado intenta obtener muchos 
puntos de atributo o mucho dinero para comprarlos, para tener ventaja 
en la batalla final y disponer de diez puntos de reserva después de la 
misma. Por lo tanto, a cada encuentro (tal como abrir un cofre para 
intentar obtener dinero o luchar con un monstruo para intentar incre- 
mentar la puntuación de cierto atributo) se produce un suceso relacio- 
nado con el propósito principal del juego. Por supuesto, ya es bastante 
divertido intentar obtener el mapa del universo del programa y vagar 
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por el mismo observándolo, pero conviene además fijar «por qué» se 
está realizando tal exploración en un ambiente tan extraño. 

Si está interesado en seguir aprendiendo sobre juegos de partici- 
pación para implementar sus propias ideas, encontrará interesantes 
los siguientes tres libros (El Castillo Encantado está inspirado en cier- 
tas ideas del primero de ellos): 


Fantasy Role Playing Games Holmes, Eric J. (Arms y Armour Press, 
1981) 


Dicing With Dragons, an Introduction to Role-Playing Games Livings- 
tone, lan (Routledge 3 Kegan Paul, 1982) 


What is Dungeons and Dragons" — Butterfield, John, and Honigmann, 
D. (Penguin Books Ltd., 1982) ("Dungeons and Dragons is a registe- 
red trademark registered in the U.K. in the name of T.S.R. Hobbies, 
Inc., of Wisconsin, U.S.A., who also hold American rights to the name). 


Juan Capitalista (Puesto de Limonadas) 


Usted es Juan. Su misión: instalar un puesto de limonadas y 
hacer una fortuna (0, al menos, no llegar a la bancarrota). El programa 
le suministra informaciones para que pueda ir tomando las decisiones 
que en cada momento aconseje la situación del mercado. Se ha 
hecho un uso particularmente efectivo de los gráficos en color y alta 
resolución del Spectrum para enriquecer el programa. Incluso aparece 
un retrato suyo en el papel de Juan, detrás del mostrador del puesto 
de limonadas. No juzgue estos gráficos por las muestras impresas en 
el libro; lo que aparece en la pantalla es mucho más impresionante. 

Una vez el programa en marcha, le indica que usted es el propie- 
tario de un puesto de limonadas. Cada día se le informa del boletín 
meteorológico. Un día cálido reportará muchas ventas; uno nublado 
no promete una gran recaudación. A partir de la predicción del tiempo 
y de su conocimiento del mercado, que irá adquiriendo a lo largo de 
sucesivos días, debe decidir cuántos vasos de limonada fabricará. 
También deberá fijar el precio de venta de los vasos en función de su 
coste y de lo que quiera ganar en cada venta. Por supuesto, cuanto 
mayores sean sus precios menores serán sus ventas. Al principio del 
juego, el alquiler de su puesto le cuesta 54 ptas. A medida que pasa el 
tiempo, y debido a la inflación, el alquiler aumenta. La inflación, ade- 
más, erosiona sus beneficios, ya que hace aumentar el precio de las 
materias primas. 

El ejemplo impreso muestra el tipo de información con la que tra- 
bajará cada día: el pronóstico del tiempo, el coste de las materias 
primas (6,5 Ptas. por cada vaso de limonada), el alquiler de 56 Ptas. y 
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el capital disponible de 2494 Ptas. A partir de esta información, debe 
decidir cuántos vasos de limonada fabricará. El programa hace apare- 
cer las copas fabricadas y dibuja el puesto de limonadas, donde apa- 
rece usted, las copas y el precio de venta. 

El tiempo pasa rápidamente y las limonadas se van vendiendo 
(es decir, vaciando). Al final del día baja la persiana y el programa le 
informa de los resultados de la jornada: «Has vendido 24 copas; has 
ganado 24 Ptas; habías fabricado 20 y te habían costado 1f Ptas.; el 
alquiler te cuesta 54 Ptas.; tienes una pérdida de 44 Ptas». 

Las instrucciones DATA de las líneas 15 y 24 representan los 
vasos vacíos (e) y los llenos (f) respectivamente. La próxima instruc- 
ción DATA contiene la previsión del tiempo y los números que gobier- 
nan el efecto que la meteorología causará a sus ventas. La tinta se 
hace negra, la pantalla se pone en su brillo normal y se borra en la 
línea 45. Las líneas 50 y 6f definen los gráficos. La línea 54 lee los 
datos de las líneas 15 y 2f y la 6 los almacena. Después de un leve 
BEEP en la línea 7f, en la 8f se define una función que sirve para 
determinar cuántos vasos de limonada se venden hoy en la línea 849. 

Las líneas 19 a la 164 imprimen las instrucciones y, después de 
una pausa (PAUSE 1Pf en la línea 168), aparece la frase «Buena 
suerte!». En 17f se produce la familiar instrucción «Pulsa una tecla 
para empezar» de forma intermitente. PAUSE Q mantiene la pantalla 
fija hasta que se pulsa efectivamente una tecla (en el ZX81 la instruc- 
ción equivalente es PAUSE 4E4 o PAUSE 40400) y se borra la pan- 
talla. 

En 18f se inicializan las variables. Su capital inicial (cash) se ini- 
cializa a 2990; el tiempo (weather) se iguala a 4; las materias primas 
(limonada) a (.5 y el alquiler (rent) a 50. Las líneas 29f a 220 escogen 
el pronóstico del tiempo y la 234 empieza a imprimir la información en 
la pantalla. La línea 254 recoloca (RESTORE) el puntero de los datos 
en la línea 25 que almacena el tiempo y sus variables de venta. Las 
variables (que se nombran from y to) se usan en la línea 849 para 
determinar cuántos vasos se han vendido. 

Se le informa del estado de sus fianzas en la línea 299 y se le 
pregunta cuántos vasos de limonada quiere fabricar. Si sugiere un 
número negativo, la línea 302 rechaza su respuesta y la 30/ le pre- 
gunta de nuevo. La línea 305 le envía a la 9/PP, donde se comprueba 
si dispone de suficiente capital para afrontar la fabricación. Si es así, la 
subrutina le retorna instantáneamente. Se llega a la línea 9016, si 
usted ha intentado fabricar más copas de las que puede hacer con su 
capital disponible («No tienes suficiente dinero para hacer tantas»). 
Una vez consciente de sus limitados recursos económicos, se le vuel- 
ve a preguntar cuántas copas quiere fabricar. Se vuelve a comprobar 
su entrada en la línea 94P/ y, si es aceptable, puede volver a la rutina 
principal. Si no lo es, el programa vuelve a caer en la línea 9414 y el 


136 


proceso se repite. (Ya que estamos analizando el final del programa, 
veamos la línea 9999. Esta línea no forma parte del programa en sí 
mismo, sino que se escribió durante su desarrollo como instrumento 
para el mismo. Sirve para listar el programa en cualquier momento. 
Devuelve la situación de la pantalla a su posición normal y la borra, 
listando a continuación el programa. La instrucción RETURN al final 
significa que esta línea puede ser llamada por el propio programa 
como una subrutina más. Cuando desarrolla un programa complejo, 
resulta interesante incluir una línea como ésta.) 

A la vuelta de la subrutina de la línea 90PP, la línea 307 determina 
si el número de copas a fabricar es menor que 1. Si es así, el número 
de copas vendidas será cero y el programa salta a la línea 956, evitan- 
do la parte de venta porque no hay nada para vender. 

Si ha pedido un número de copas coherente y se toma el negocio 
seriamente, el programa imprime las copas fabricadas mediante las 
instrucciones de las líneas 31P y 320. La línea 33f le pregunta el pre- 
cio de venta para hoy y la 333 rechaza cualquier precio mayor de 5 
pesetas o menor de /.1 Ptas. Después de un corto BEEP (335), se 
imprime el precio de venta (34f) y se le pide que pulse cualquier tecla 
para empezar a vender (356). Otro BEEP y el programa espera 
(PAUSE Qf) hasta que pulse una tecla. Su pulsación se contesta con 
otro BEEP (al final de la misma línea) y la línea 36f borra la pantalla, 
coloca la variable brillo y llena de un blanco brillante una parte de la 
pantalla con el bucle «i». 

Ahora viene la sección más interesante desde un punto de vista 
visual. La rutina de las líneas 379 a 69 crea la figura de Juan y de su 
puesto con las estanterías para colocar las limonadas. La siguiente 
sección, usando la variable «count» (que se iguala a la variable 
«cups» en la línea 695), imprime los vasos llenos de limonada. Cada 
vez que se imprime una copa, la variable count se decrementa en 715 
y se comprueba si ha llegado a cero. Cuando llega, el ordenador sabe 
que se han representado todas las copas. Una vez las copas en sus 
estanterías para atraer a los sedientos clientes, las líneas 73f a 834 
completan el cuadro del puesto de limonadas. 

La línea 84f activa la función definida en la línea 80 para determi- 
nar el número de vasos que ha conseguido vender hoy. Los bucles 
existentes después de la línea 864 cambian los vasos llenos por va- 
cíos en las estanterías. Si se han vendido todos, se coloca el letrero de 
«TODO VENDIDO» (línea 94/). Después de un par de segundos de 
pausa al principio de la línea 919, baja la persiana del puesto de limo- 
nadas. Otra pausa al principio de la línea 94f y luego el ordenador 
imprime el «Informe de Ventas» del día: «Has vendido ... vasos. Has 
ganado ...». 

La línea 19PP calcula los beneficios o pérdidas (variable «prof»). 
Las líneas 1P19 a 13f utilizan la función SGN para determinar si la 
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jornada ha resultado un éxito o un fracaso. (La función SGN da —1, si 
el número es negativo; o + 1, si es positivo; o f si el número es cero.) 

La inflación amenaza sus beneficios en la línea 1P5P, incremen- 
tando su alquiler el 10 % de los días. Igualmente en la línea 1966 el 
generador de números aleatorios incrementa el coste de las materias 
primas el 19 % de los días. La línea 1965 espera a que usted pulse 
una tecla para continuar. Si 1/67 descubre que no le queda dinero (es 
decir, si cash es menor que 1), el programa va a 15Pf, anunciándole la 
implacable bancarrota. Si, por el contrario, usted todavía es un nego- 
ciante solamente, el programa vuelve a la línea 24P para permitirle 
otra jornada de negocio y habiendo actualizado su capital. 

En el caso de caer en la línea 150P, aparece el mensaje «CE- 
RRADO», Usted se encuentra en bancarrota y aparece el mensaje: 
«Estás en bancarrota y debes vender tu puesto para pagar las deu- 
das». La línea 152f salta siempre sobre sí misma, terminando el pro- 
grama sin que aparezca ninguna otra información. Para salir de esta 
situación puede pulsar BREAK. 


PUESTO DE LIMONADAS 
Eres el propietario de un 


puesto de bebidas donde se 
vznden limonadas. 


Cada dia se te comunica el 


ANO ES del tiempo, a partir 
e 

co 

in d 

ta a33y o 

pr o ev ta 

El alquiler del puesto te cuesta 
50 Ptas. al dia, Pero aumentara 
con la inmflaciona. 


LIMONADAS JOE 


YYYYY 
Limonada:2 Pts 


138 


PUESTO DE LIMONACAS 
Informe de Hoy 
Tiempo : Templado 


Cada copa te cuesta 0,5 pesetas 
Alquiler: S0 Ptas. 

Tienes 2000 Ptas. disponibles 
Lopas: YYYYYYYYYYYYYYYYYYYY 


YY 
TODO VENDIDO 


PUESTO DE LIMONACAS 
Informe de Ventas 
Has vendido 20 copas 
Has ganado 40 Ptas. 


Habias fabricado 20 y te 
habian costado 10 Ptas. 


El alquiler te cuesta 50 Ptas. 
Tienes Una perdida de 20 Ptas. 


Graficos Usados: 
Y ... Grafico “f” 
Y ... Grafico “e” 
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1 POKE 23609,125 
15 DATA "e" ,0,BIN 
10000010.56In_vulugo 
000.561N 006010000,51 
WN 01111100 

20 CATA "1”",0,BIN 

11111110.5IN 01111 
2000.6IN 00e10080,61 
N 01111100 

25 DATA "Tormento 
medo”,25,40,"Nublad 
plado",45,70,"Calur 
Ardiente”",100,130," 
¿200,300 

45 INR 0: BRIGHT 

SO FOR J=1 TO 2: 
i=0 TO_? 

60 READ_a: POKE USR a$+i, 
XT_i: NEXT y 

70 BEEP_.5,0 

80 DEF FN P1p,9)=q/(p/100) -100 
100 PRINT PAPER 6;" PUEST 
O DE LIMONADAS a res e 
Ll propietario de un “*“"puest 
o de bebidas donde se “oye 
nden Limonadas. pa 

110 PRINT " Cada dia se te com 
unica el", “pronostico del tiempo 
,,3 Partir" A 

120 PRINT "del cual, decidiras 
cuantas" 

130 PRINT "copas haras. Tambizn 
seras", "informado de cuanto te 
cuesta", “cada copa y Podras deci 

dir el”, "precio de venta." 
140 PRINT '"El alquiler del pue 
sto_ te cuesta" 

150 PRINP “59 Ptas. al dia, per 
o aumentara”, “con _ la inflacion.” 
180 PAUSE 100: PRINT INK 2" 

Buena Suerte !" 
170 PRINT FLASH 1;*" Pulsa una 
EeSÓS Para empezar ": FPRUSE 0: 
150 LET cash=2000: LET veather= 
4: LET lemonade=.S: LET cena 


0539, FE veather=ueather + INT 
£3- 
210 IF weather=0 THEN LET veath 


er=1 

Eo IF weather=8 THEN LET veath 

er= 

230 PRINT PAPER 6;" PUEST 

0_DE LIMONADAS e 

240 PRINT INK 7; PAPER 1;”" 
Informe de nes . 

250 RESTORE 25: FOR i=1 TO weat 

her: READ w$,Ffrom,to: NEXT i 


269 PRINT “"Tiempo : “5 INK 1,4 


270 PRINT '"Cada copa te cuesta 
INK_1;lemonade;”" pesetas" 


280 PRINT *"Alquiler: "¡ INR 1; 
rent" EFtas.” 
290 PRINT '"Tienmes "; INK 1l;cas 


h;_INK_0;" Ptas. disponibles” 
300 BEEP .5,10: INPUT INK 2;,"Cu 
antas copas haras "; FLASH 1;"? 
“¡cups 
302 IF cups<0 THEN GO TO 300 
305 GQ SUB $000: BEER .5,5 


5 price=.1: LET cups=0: 
310 INK 6: PAPER 0: PRINT “Cop 


Q cups: PRINT " 
R 7: PRINT 
0: INPUT INK 2;,"Cu 
¡o de venta para" '" 
¿0? price 
OR price<.1 THEN 


1 
: NE : PAP 
330 BEEP Se] 
H 
c 


Coon 
ur 


Le) 


A 
Po dbÉper 7: PRINT "El 
cada copa es ",price;” 


e 
NT FLASH 1; INK 2; "“Puls 
€ 
EP 


256005:90 


la para empezar" "la ve 
.1,10: PAUSE 0: BEEP 


¿ BRIGHT 1: FOR i=18 TO 
NT AT 1,055" 
"o NEXT i 
i=0 TO 45 STEP 165 
AR rales DRAV 255,0 


A ¡=0 TO 200 STEP 40 
ESE 1705 DRA 55,48 


43 PRÍNT PAPER _6;AT edi LIM 
ÚNADAS JOE  "; PAP ER 5;¡AT 9,8," 


440 FOR_i=92 TO_98 
4590 PLOT _INK 7;72,i: DRAW INK 7 
¿¡120, "REZ e 


EXT 
479 FOR ¿m1 TO 6: PRINT PAPER 6 
¿AT 9+1,9;" "¡TAB 24; PAPER 6;" 


480 NEXT. 


- 68m 
HO Me cm 


- 70 

PPODGO WI" ADINUNOO 
POD POr 0CYN+W0RAOOLNI 
060609 


pr 
mu 
66 
L 


TO 4: PRINT PAPER 5 


195 BRIGHT o 
496 INK 6 
500 FOR i=112 TO 115 


141 


142 


5109 PLOT haze DRAW 136,0 


T 
530 FOR ¡264 TO 199 
540 PLOT 3.110: DRAW 40,31 


xT 
559 FOR ¡2115 TO 24 STEF -1 
570 PL 2n OS ÍSnT 0;200,i: DRA B 
PISNT 0; ¿31 


i TO 23 . 

500 PLOT BRIGHT 8,200,i: DRAU B 
RIGHT 8,40,48 

o 


10 NEXT 

B15 INVERSE 1 

620 PLOT PAPER 0;64,116: DRA P 
APER 0;134 

630 PLOT PAPER 0;64,112: DRA P 
APER 9;134, 

649 INK 0: INUERSE 0 

659 PLOT 63,16: DRAW 0,100 

668 PLOT 199,16: DRA 0,96: DRA 
WU INVERSE 1; INK 5; PAPER 0,0,4 
670 PLOT_ 54,15: DRAY 134,0 

¿930 INK 2: PLOT 72,79: DRAU 72, 


“eso PLOT 72,53: DRAW 72,0 
GO. 5UB 700: 


pu] - 
700 IF count=0 THEN_RETURN 


¿299 FOR i=11 TO 15 STEP 2; FOR 
j= 

710 _BRIGHT_S: PRINT AT 1,8+y. "Y 
"; BEEP_.1,20 

715 LET count=coumt-1: 1F count 
=0_THEN RETURN 

720 NEXT ¿: NEXT i: RETURN 
e PLOT 150,50: DRAW 15,0,.-PIx 
3/ 

749 PLOT LEO 45: DRAU 0,27: DRA 
u_12,5,-PI- 

750 PLOT 137, 435: DRAN 0,27: DRA 
U_-12,5,PI/5 

760 PLOT 156,43: DRA 0,20 

770 PLOT 179,49: DRAW u,20 

730 PLOT 165,48: DRAW 4,16: DRA 
W_3,38: DRAL ojó: DRA -35,-16 

2 DRAW -3,3: DRA 0,3: DRAW 3 
716 

300 PLOT 152,33: DRA _10,0,PI-2 

nor an 1684,92,2: CIRCLE 171 
¿32,2 

350 P .9; INK_0; PAFER 

5; Li TEN Pts" 

340 Le CINT (RND*(to-from 
+from)+(to-Ffrom))xS80/FN pllemon 
ade price) 

345 LET sold=INT sold: IF sold> 
cups THEN LET sold=cups 

850 LET sellc=sold 


¿28% 5087 i5ti TO 15 STEP 2: FOR 
q57a PRINT AT iy Y: BEEP .1,1 


550 LET sell ellec-1: IF sellc 
=0 THEN 50 TO [5] 

390 NEXT _ j: NEXT i: 60 SUB 700: 
G0 TO_360 

300 IF sold=cUps THEN_PRINT_INK 
a 4;AT 17,39; TUDO VENDI 


Ú 
ES PRUSE 100: FOR i=103 TO 48 
Sa .02,i-43: PLOT ?2,i: D 


i 

240 PAUSE 100: BEEP .5,5 

950 _CLS : PAPER 7: INK 0: FRINT 
o ¿ BRIGHT 1; "PUE 

¿ BRIGHT 0;” 


3960 PRINT INK 7; PAPER 1;” 
Informe de Ventas E 
970 PRINT *"Has vendido "5 INK 


1 LEIA PRINT 
“perdida”, 


"ptas. 
THEN PRINT “" 
HEN _PRINT ** 
: 
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3 
IF AND> oa THEN LET lemonade 
adu+1 
EEP .5,10: PAUSE U: BEEP . 


Roms 


o 


Só 2 
¿ PRINT TAR 1; FLASH 1; 
Ú 
T ¿"Estas en bancarrota 
$ 
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9000 IF cups:lemonade<=cash THEN 
RETURN 


sola INPUT INK 1;"No. rs sufi 


cient hacer tanta 
A as quieres 
hace ES 
2020 

23390 

39399 7: BRIGHT 
0: IN cLs LIST : 
RETU 


Mejore su inteligencia 


Sintaxis 


Este es un juego «intelectual» para personas a las que les guste 
jugar con palabras. El objetivo del juego es obtener 1f frases que 
tengan sentido. Al ejecutar el programa el ordenador le pide unos mo- 
mentos de espera y en este tiempo construye diez frases al azar, a 
partir de una serie de nombres, adjetivos, verbos y preposiciones. El 
resultado evidentemente son diez frases que no tienen ningún senti- 
do. Usted debe ordenarlas. 

Verá un cursor situado al lado derecho de la pantalla con el núme- 
ro de palabra a la que apunta. Puede correr el cursor arriba y abajo 
mediante las teclas «6» y «7». Pulsando cualquier tecla de «1» a «5» 
puede subrayar una palabra de la frase a la que el cursor apunta, es 
decir, si pulsa «3», queda subrayada la tercera palabra de la frase. 

Dispone de un almacén de diez frases vacías al principio del 
juego. Para entrar palabras a este almacén debe subrayar una pala- 
bra de las frases aleatorias propuestas por el ordenador (mediante el 
método anteriormente expuesto) y pulsar ENTER. El ordenador le pre- 
guntará en qué frase debe añadir la nueva palabra e imprimirá las 
frases que usted está construyendo con la nueva palabra en su posi- 
ción correcta. Si pretende entrar la palabra subrayada en la quinta 
frase de su almacén, pulse 5 cuando el computador le pregunte: «¿A 
qué frase?». 

Podría ocurrir que, una vez hubiera conseguido construir sus diez 
frases, dudara de si son coherentes. El ordenador no podrá ayudarle a 
resolver sus dudas. El único juez de sus frases es usted mismo. 

La línea 29 activa el generador de números aleatorios y la 30 
envía la acción a la 1009, donde se dimensionan las matrices y se 
asignan valores a las variables. Las líneas 104P y 1050 buscan ele- 
mentos vacíos en la matriz a$, volviendo a 1444 para examinar el 
próximo si el actual no está vacío. La línea 1P6f lee la próxima palabra 
de las líneas de datos (DATA) situadas después de la línea 99PP. Un 
elemento de la matriz m se iguala a la longitud de la palabra leída y la 
palabra misma (b$) se almacena en un elemento de la matriz a$ (línea 
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En 1100 la variable x$ se iguala a «a$» (no es que se igualen las 
variables. La variable x$ se iguala a los caracteres «a» y «$»). La 
matriz | se iguala a la m y la acción pasa a la subrutina de la línea 299, 
donde se imprimen las frases en la pantalla. (Se utiliza una matriz 
«puente» | para escribir las frases, ya que se utiliza la misma rutina 
para escribir las construidas por el ordenador m y las del jugador n.) 

La instrucción RETURN de la línea 260 devuelve la acción a 
la línea 1166, donde se inicializan las variables u, p y n. Se usan 
en la localización de palabras en la pantalla. La línea 1194 imprime el 
cursor de líneas. Se llama inmediatamente la subrutina de la línea 1HP, 
encargada de imprimir el cursor de palabras (el cuadrado negro del 
final de la línea 15H). La sección que empieza en la línea 1195 acepta 
sus demandas de movimientos y actúa en consecuencia. La línea 
1205 iguala la variable ¡$ a la tecla que está pulsando. La línea 1259 de- 
tecta si usted ha pulsado ENTER y, sies así, le envía ala línea 126f para 
preguntarle a qué frase quiere dirigir la palabra apuntada en la pantalla. 
De acuerdo con su respuesta, x$ se iguala a «s$» (recuerde: no s$) y la 
línea 13Pf llama a la subrutina de la línea 20 para imprimir sus frases. 
Las líneas 134f y 1350 esperan aque no esté pulsando unatecla y luego 
a que pulse otra, antes de devolver la acción a la línea 11/PP, donde el 
proceso sigue. 


S REM _ Sintaxis 
13 RESTÉAE 
20 RANDOMIZE 
30 G0_TU 1000 
1009 LET e=0 
110 LET v=4us24+1 
120 FOR b=3x (n>3)1+1 TO n-1 
1350 LET_e=e+lib.v)+1 
140 NEXT _b 
150 PRINT AT 1n>3) ,e+3x inx4), 
OVER _1;"BM" 
160 RETURN 
200 CL5S 
205 FOR a=1 TO 11 
207 PRINT "Un _"; 
210 FOR b=1 TO S ] 
AH PRINT VALS (x$+"(b,a, TO LÍ 
REA 
2390 IF b=3 THEN FRINT 
240 NEXT_b 
24S PRINT 
250 NEXT_a 


ú 
1000 PRINT AT 11.0, "Por favor,es 
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THEN GO TO 135 
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1350 IF INKEYS="" 
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El pozo 


En este programa se muestra un cuidado escenario en el que 
usted se convierte en el desgraciado prisionero de un demente, quien 
decide que, debido a sus muchos pecados, debe ser encerrado en un 
cubo y colgado en un pozo. El loco le hará preguntas y si usted no 
logra demostrar su habilidad matemática, irá descendiendo por el 
pozo hasta ahogarse. 

Así es como lo explica el propio programa: 


En este juego usted es el 


Prisionero de un profe- 
sor maniaco que le ha 
colocado en un cubo 

que desciende lentamente 
hacia el agua. 

El le hara preguntas. 
Cuando se equivoque le 
bajara, 

Contestelas correctamen- 
te y le izara. 


Y ésta es la escena en la que se le hacen las preguntas: 


JA! 
lor A 


“Cuanto es 4 x 5 ?' 


e! La respuesta 
ecta era 20 


Debido a su considerable grado de elaboración, el programa es 
muy directo y requiere un accionamiento mínimo por parte del jugador. 
La rutina que empieza en la línea 1409 dibuja la escena. Después 
de la introducción y de un primer dibujo, el programa le pregunta qué 
nivel tiene de matemáticas. El número es un tanto por ciento. Si entra 
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un valor inferior al 12 %, el ordenador no le cree y escoge otro tanto 
por ciento al azar. Le sugerimos que responda un 15 % la primera vez 
que ejecute el programa. La línea 716 iguala la variable de operación 
$ a multiplicación (Xx) o adición (+). La 724 asigna a la variable «a» 
un número comprendido entre 1 y el número que ha entrado como 
nivel de conocimientos. Si t$ es un signo de multiplicación, en la línea 
730 se asigna un número entre 1 y 1f a la variable «b». Si t$ contiene 
un signo de adición, la línea 735 se asigna un número entre 1 y 189 
veces el que ha entrado como nivel de conocimiento. 

La línea 749 imprime la interrogación en la pantalla, sustituyendo 
el asterisco (*) por (Xx), si se trata de una operación de multiplicar (ya 
que el signo «Xx» es el que se usa normalmente como signo de multi- 
plicar). El bucle g de la línea 777 a la 846 le da la oportunidad de entrar 
su respuesta. Resulta ineresante el análisis de esta rutina, ya que es 
muy útil en todo tipo de programas. En la línea 785 se aceptan los 
caracteres entrados por el jugador y en las líneas siguientes se alma- 
cenan formando un número. El profesor reacciona a su respuesta en 
las líneas 850 a 985 y se genera una nueva pregunta. 

Observando la rutina situada hacia el final del programa que im- 
prime la escena, puede ver la variable principal «l» que determina la 
profundidad del cubo. Si el profesor hace llegar el cubo al fondo, la 
partida termina trágicamente. Si va acertando las respuestas y el cubo 
llega a la polea del pozo, se produce un inesperado final, propio del 
loco profesor (de hecho, el desenlace que se produce es mecánica- 
mente lógico). 
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5 pen El Pozo 

10 LET_1=100 

20 60 SUB su00 
510 PRINT AT_S6,6;"El pozo" 
520 PRINT ,,TAB 6;;"En este jue 
go usted es el" 
e ope TAB 6;"prisionero de 

rofe-=" 

he A TAB 6;"sor maniaco qu 

a 5 
os PRINT TAB 5;"colocado en un 
cubo” 
560 PRINT TAB 5;"que desciende 
Lentamente" 
¿570 PRINT TAB 6;"hacia el agua. 
580 PRINT ,,TAB 6;"El le hara Pp 
reguntas." 
590 PRINT TAB 5,"Cuando se equi 
wvoque Le" 
600 PRINT TAB 5;,"bajara.' 
510 PRINT TAB Sr conteztelas co 
rrectamen—" 
5620 PRINT TAB 6;,"te y le izara. 


G0 SUB 1005 
PRINT AT 21,6;"Pulse una te 


a 


PAUSE Y 
GO _5U5_ 1049 
¿PRINT AT 6,6;"El profesor d 


a "*Como va de matemati 
yy” 


*o nm 


>100 THEN PRINT 
ñ numero desde Y 


vs 


60 sl 
) LE c (42 + INT” (RND+*2) 
LE N (RND*d) +1 
IF "$" THEN LET b=INT (R 
Ni 0) +] 50 TO 749 
LE IN (RND+d+100) 
PR AT 56,6;,""Cuanto es "; 
LET u$=t 
1F_ t$="%" THEN LET_ us="x" 
65 LET CH=STRS$ UAL (STRS a+t$+ 
STR$ b) ' 
770 PRINT a; “"jug;" "jbj" 70 
772 LET tt=0 
775 LET w$=' 
777 FOR Y có 
730 FOR t Pa] 
7898 LET i 
799 IF i$ NEXT_t A 
300 IF CU OR CODE 15$>57 
THEN GO T 
310 LE 
515 LE 
320 IF w THEN GO TO 
910 
325 PRIN : BEEP .1,20 
e 1F 1 THEN G0 TC 55 
340 NEXT_3 
350 PRINT AT 10,6;"Rah!! Has ac 
ertado!' 
3860 FOR a=1 TO 11/10 
370 BEEP .01,20 
380 NEXT a 
dd LET L=l-(Lx10-ttyLEN c$)/10 
9900 G0 TO 700 
310 PRINT AT_3,5;v$ 
915 FOR a=1 TO 20 


NEXT_a 
340 PRINT AT 12,6;"Je,Je! La re 
spuesta" 


os AT 13,6;"correcta era 
2952 FOR e 3 
¿2560 PRINT AT 3, (200-1) /3+3; "JA! 


JO 


9665060606100 0000606006-d66 ¿SS 1900066060660": NEGAAINEGANGGIAN GN 


30 
NT AT 3, (200-1) /S+3;" 


TERR RRA AT pe e e e pp pp 
UNEN RARA SAO DN E LINO E 1000 y 


FESSER DVE:- RÁ E PREPRRRERDOO SERCIABIIIIDIIII We 


0] 3 

RINT AT L-8+1,1; OVER 1,"X 
IF L=9 THEN BEEP 1,22: G0 T 
o =153 THEN BEEP 1,22: 50 
IF 1:20 THEN LET L=0: BEEP 

1000 
I 
2 


Go TO 
A e  UBNSLET (=153: BE 


JOY O Ou Or 


BEEP .05,3 


PRINT AT a,l; 
PRINT AT_a-1,1; 
BEEP .2,21-a 
NEXT_a 

PRINT AT 21,1; OVER 1;"_" 
PRINT AT 1671 50_* 

STOP 


tomo nou lalo ur Mer? POR 


P*900-J0d0dNP?DUN-E0 
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STOP 
DATA 24,24,254,58,24,35,102 


FOR a=9 TO 7 
RERD b 

POKE USER "a"+a,b 
NEXT_a 

RETURN 
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Sugerencias de programación 


Mejorando sus programas 


«Los artistas han sido siempre los primeros en explorar nuevas 
tecnologías...» (David Thornburg, Computers and Society (revista 
Compute!), marzo de 1982, p. 16) 


La llegada de los ordenadores personales ha dado a muchas per- 
sonas una salida a su creatividad. El hecho de disponer de un acceso 
fácil a un ordenador ha hecho entrar en muchos hogares una actividad 
creativa, despertando habilidades que de otra forma hubieran perma- 
necido dormidas. 

Como en todas las formas del arte, los conocimientos y la técnica 
pueden hacer más fácil la implementación de sus ideas. Si dispone de 
una serie de trucos y técnicas, usted puede inventar y desarrollar sus 
programas libremente, sin la angustia que produce el no estar seguro 
del resultado de su esfuerzo. Por ejemplo, si se sabe cómo conseguir 
que las figuras se muevan en la pantalla, esto se convierte en la parte 
no significativa del programa, quedando energías y tiempo para con- 
centrarse en otros aspectos que harán su programa mucho más su- 
gestivo. 

El atento examen de los programas de este libro u otros del 
mismo tipo constituye una vía segura para avanzar en el conocimiento 
de la programación. Solamente al entrar los programas y leer las 
notas que los acompañan podrá adquirir cierta cantidad de ideas que 
podrá incorporar a sus propias producciones. Si todavía es muy novel 
en el juego de la programación, puede empezar adaptando ligeramen- 
te los programas del libro, cambiando los gráficos definidos por el 
usuario, o las teclas que leen las rutinas INKEY$, y luego ir avanzando 
progresivamente hasta escribir programas enteros. 

Cuando desarrolle un programa, mantenga claro un objetivo «hu- 
mano». En muchos casos sus programas serán ejecutados por otras 
personas y, por ello deben ser lo más fáciles de utilizar y lo más diver- 
tidos que pueda. Por ejemplo, muchos programas incluidos en este 
libro y escritos para Spectrum utilizan las teclas «5», «6», «7» y «B» 
para controlar el movimiento de los objetos. Estas teclas tienen una 
flecha pintada y, por este motivo son, las más utilizadas en el control 
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de dirección. Sin embargo, si piensa sobre ello un momento observará 
que, en ciertos casos, no son las teclas más útiles. Están situadas 
muy juntas y en la parte superior del teclado. En juegos de acción 
rápida puede ser más conveniente el uso de teclas más separadas, 
tales como «Z» para moverse hacia la izquierda y «M» para ir a la 
derecha. Igualmente, pueden elegirse otras teclas para los movimien- 
tos hacia arriba y hacia abajo. Puede ver un ejemplo de lo expuesto en 
el programa CARRERA MORTAL. 

Resulta interesante cuestionarse continuamente todas aquellas 
cosas que se hacen por hábito, tal como usar las teclas «5» a «8», 
para analizarlas y ver si son las que producen programas óptimos. 

Escoja, pues, teclas que parezcan «naturales» en el juego en re- 
lación a su posición en el teclado o por ser iniciales de la palabra que 
designa la acción a realizar. Por ejemplo, puede usarse la «Z» (en la 
parte inferior izquierda del teclado) para ejecutar un movimiento a cua- 
renta y cinco grados en dirección Sudoeste, o la tecla «F» de fuego 
cuando deba usar su pistola laser para eliminar un extraterrestre, o la 
«R» de rodar cuando se trata de tirar un dado. Como ejemplo de esta 
última forma de comunicación, puede tomarse el de LA VENGANZA 
DEL CASTILLO ENCANTADO, donde se utiliza la tecla «E» para ir 
hacia el Este o la «HU» para intentar la huida. Una vez lee las instruc- 
ciones de un juego con este sistema de comunicación es difícil que las 
olvide. 

Si es posible, el programa debe incluir preguntas explícitas, de tal 
forma que el jugador sepa en cualquier momento que es lo que debe 
hacer. Es mejor hacer esto que colocar al principio del programa una 
larga explicación, que requiere una gran cantidad de memoria y un 
cierto tiempo de mecanografiado. El Spectrum permite incluir en las 
instrucciones INPUT frases entre comillas («»); esta posibilidad facilita 
la inclusión de las citadas pistas en los programas. Seguramente sabe 
que es posible usar todos los controles de la instrucción PRINT, tales 
como: FLASH, BRIGHT e INVERSE; dentro de instrucciones INPUT, 
lo que permite realzar y hacer más comprensibles las indicaciones al 
jugador. 

Una vez haya conseguido un programa que funcione correcta- 
mente y que se ajuste a sus deseos, conviene pasar cierto tiempo 
haciendo la presentación tan atractiva como sea posible. Aunque la 
salida del programa conste únicamente de instrucciones PRINT, no 
hay razón para no colocar las frases y números de forma atractiva. 
Cambiando el color en las instrucciones PRINT o el borde de pantalla 
a pantalla, puede mejorar la legibilidad del texto. Por ejemplo, en el 
programa de AJEDREZ el borde de la pantalla cambia de color aleato- 
riamente cuando una pieza del Spectrum es capturada por el jugador. 

El sonido también puede mejorar un programa. Es sorprendente 
el efecto que pueden causar unos cuantos BEEP bien repartidos. No 
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es solamente aplicable a programas de acción, donde se desintegra 
un extraterrestre o se produce el rebote de una pelota, si no que 
puede realzar programas mucho más tranquilos como AJEDREZ. En 
este caso, el ordenador hace sonar un BEEP cuando va a la rutina de 
búsqueda de posibles movimientos. Se incluye esta función para que, 
en el caso de que el ordenador tarde mucho tiempo en tomar una 
decisión, el jugador esté seguro de que el programa no se ha perdido 
en un bucle infinito y mantenga la esperanza de obtener una res- 
puesta. 

Vemos, pues, que el uso del color y el sonido mejoran la calidad 
de cualquier programa. Además, estas características forman parte 
del software contenido en el Spectrum, siendo ilógico no usarlas, ya 
que no significan añadir complejidad a sus programas. El mismo argu- 
mento puede aplicarse a los gráficos definibles por el usuario. En el 
programa de AJEDREZ no se han incluido porque se ha perseguido la 
calidad del juego antes que su belleza. No obstante, no hay excusa 
(quizá, la pereza) para representar un extraterrestre con un asterisco, 
pudiendo hacerlo con un gráfico mucho más expresivo. 

Sin perder de vista el valor de añadir colores con las instrucciones 
INK y PAPER o subrayar y realzar palabras con INVERSE, FLASH y 
BRIGHT, existen formas más sutiles de hacer más legible un mensaje, 
tales como: incluir algunas palabras en mayúsculas. Puede ver la utili- 
zación de este recurso en la segunda versión de LA VENGANZA DEL 
CASTILLO ENCANTADO. En este caso se han utilizado las mayúscu- 
las para distinguir los textos añadidos a la primera versión. También 
puede ser importante la posición de la impresión de las frases y, en 
estas ocasiones, la instrucción PRINT AT es de gran utilidad. 


Incremento de la velocidad del programa 


En algunos casos la «calidad» de ejecución del programa es más 
importante que su velocidad de respuesta (como PIRANDELLO o 
DAMAS en este mismo libro). Pero incluso en programas como los 
citados, debe cuidarse la velocidad de ejecución para no aburrir al 
jugador. Por supuesto, en los juegos de acción la velocidad debe ser 
la preocupación número uno del programador. Un programa de acción 
lento no resulta nunca satisfactorio. 

En las introducciones a algunos de los programas de este libro se 
ha llamado la atención del lector sobre los recursos usados para incre- 
mentar la velocidad del programa considerado. Le remitimos a estos 
comentarios a parte de los que figuran a continuación. 

Cuando un programa llega a una instrucción GO TO o GO SUB, 
busca el número de línea correspondiente a lo largo de todo el progra- 
ma, empezando por la primera línea. Por lo tanto, la primera regla a 
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observar es situar las rutinas de más frecuente uso al principio del 
programa para disminuir el tiempo de búsqueda en todos los cambios 
de secuencia. Si existe un bucle principal que el programa recorre 
repetidamente, conviene situarlo a partir de las primeras líneas. Verá 
muchos programas en este libro organizados de este modo. 

Además, las partes del programa que se usen raramente o una 
sola vez deben situarse al final. Así, puede observar que las instruc- 
ciones que se dan al jugador al principio del juego están siempre situa- 
das al final del listado. 

Es evidente que cuantas menos líneas tiene un programa, más 
rápido se ejecuta. Dado un programa con cierta cantidad de instruc- 
ciones, puede minimizarse el número de líneas encadenando en cada 
línea varias instrucciones. Esto es especialmente cierto con instruccio- 
nes PRINT AT que deben ser encadenadas tanto como sea posible. El 
encadenamiento de instrucciones y la eliminación de instrucciones 
REM mejora la velocidad de ejecución pero empeora la claridad del 
programa y sus posibilidades de modificación. En muchos casos con- 
vendrá hacer dos versiones de un mismo programa. Una de ellas con 
muchos comentarios REM y las instrucciones sin encadenar para con- 
seguir la máxima claridad durante el desarrollo del programa. La otra 
versión de alta velocidad se puede derivar de la primera sacando las 
líneas REM y compactando las instrucciones, cuando el programa ya 
funcione correctamente. 

Si se programa de una forma cuidadosa y estructurada pueden 
suprimirse todas las instrucciones GO TO que no estén tipificadas me- 
diante un IF/THEN. Algunos programadores puristas aseguran que la 
instrucción GO TO incondicional es siempre mala: sin embargo, no 
vemos razón para prescindir de esta instrucción, que algunas veces 
puede resultar útil. Las instrucciones GO SUB también pueden ser 
substituidas en muchas ocasiones. Si se utiliza una subrutina para 
una función no muy larga a la que se llama en dos o tres ocasiones, es 
mejor repetir esta rutina para cada vez que sea necesaria. 

Una vez terminado el programa, es interesante sacar un listado 
completo del mismo para examinarlo críticamente y ver si los bloques 
que lo forman con autocontenidos. Descubrirá que, aunque no los 
haya realizado pensando en estructurarlos, la mayoría tienen una es- 
tructura modular espontánea. Sin embargo, puede ocurrir que los blo- 
ques no estén colocados de una forma óptima desde el punto de vista 
del tiempo de ejecución. Resulta conveniente en este caso reorgani- 
zar el programa y hacerlo más lógico. 

No use paréntesis a menos que sea absolutamente necesario, ya 
que consumen memoria y alargan la ejecución. Verá que el BASIC del 
Spectrum requiere menos paréntesis que otros, permitiendo, por 
ejemplo, la instrucción PRINT CHR$ 134 en lugar de PRINT CHR$ 
(134). 
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Encontrará ciertas dificultades en la adecuación de programas 
escritos para el ZX81 de 16 K para introducirlos en el Spectrum. Los 
gráficos consumen más memoria en el Spectrum que en el ZX81. 
Cuando convierta un programa de uno a otro, elimine sistemáticamen- 
te todos los REM y condense todas las instrucciones PRINT. Examine 
luego el listado completo para intentar acortarlo de alguna forma, 
como, por ejemplo, añadiendo una subrutina para sustituir un bloque 
que se use más de una vez. Esto hará el programa un poco más lento, 
pero es el precio que cuesta hacerlo compatible con el Spectrum. 
Como sabe, el Spectrum es un procesador mucho más rápido que el 
ZX81, de forma que no es problema sacrificar la velocidad de proceso 
en este caso. 
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Apéndice 


El generador gótico 


Este programa no es un juego, pero puede resultar muy divertido 
y muy útil. El programa permite redefinir uno o todos los caracteres 
que imprime el Spectrum. Solamente tiene trece líneas, pero le permi- 
te obtener unos efectos extraordinarios. 

Por ejemplo, el siguiente listado está realizado en caracteres góti- 
cos obtenidos a base de redefinir todo el juego de caracteres: 


—= 


s A 209 
19 4 eiT 31499 
moAE LGA UE “POT £avor espere un 
Is pl 15616 
39 d=31491 
39 ¿=> pazos 
23 : $ qt. ttk (P+£) 
7o L v=31145 
do | E Mises . 
92 $ 1) V-256%4Mt_(v¿/256) 
199 FOkté n+1,4n£t (Y“256) 
159 Tú 9970 
229 VFLE Que Lerra desta cam 
aro Y 
: CC A=ZIAD1+AE EL 15-32) 
Ea 
: Se 
ss ul (s: 1f (g=" Stop th 
245" f 38 40) y 
ú el METIDO Y MET DET en 
28 HE E vgl (05+0 5) 
209 Prrde Errar 305,9 
27 Mel Pe 
339 Pirón as 
309 Tan 
as Jn 
333 40" Ed 200 
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Como puede ver, hace mucho efecto. Seguramente, en la mayo- 
ría de los casos no necesitará cambiar el vocabulario completo, sino 
solamente unos cuantos caracteres. Ejecute el programa y espere 
unos momentos. Aparecerá el mensaje «Qué letra desea cambiar?». 
Una vez haya respondido a esta pregunta, el computador le permite 
entrar una serie de números binarios (línea 24M) que redefinirán la 
letra elegida. Verá que si, por ejemplo, ha redefinido la letra «a», cada 
vez que aparezca lo hará en la forma de su propio carácter. Aquí tiene 
el programa listado con caracteres normales: 


G0 200 
CLE 1400 
PRI Por ravor espere un 
momento. 
LET 15516 
LET a=31401 
FOR_f=0 TO_1023 
PÚKE 2 HU TERR ip+f) 
4 
pa] 


PORKE mn. v- -2558*INT_ (v/2560) 
PORKE _n+1,INT (v/2561 


INPUT "Que letra desea camb 
¿25 
LÉl rea y eS a$-32) 


LET b$="BIN " 
ODE UT CH: I1F cg=" STOP " TH 


IF LEN c$:<>8_ AND c$<>"" THE 
P_.5,20: 60 TO 240 
LET_b=UVAL (b$+c$) 
PORE_at+tf,b 

PRINT f+1;TAB 3;Cc$,b 

NEXT_f 


DOS ZION. ree 


Carora RISAS min 


GUeERSOOJINNDR PUMERA SUBIO JOR RA 


Si se trata de reprogramar el alfabeto completo, es más sencillo 
utilizar números decimales en lugar de binarios. Si realmente necesita 
un alfabeto gótico, entre el siguiente pequeño programa: 
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Cuando lo ejecute, podrá entrar una larga lista de números. Apa- 
rece en la pantalla un número de posición de memoria y usted debe 


responder entrando los números de la lista adjunta. Una vez lo haya 
Este puede ser un recurso original para escribir las felicitaciones de 


hecho, todo el alfabeto del Spectrum se habrá convertido en gótico. 
Navidad del próximo año. 


5 o 
0... 0 AY AAA OGIODRAA Y RAI SAADIAA e 
DOI OO A AMO 0000 rr lo MIO 0 00 10 A AAA DRNA 


APDO Do De POLO DS A e POLO Do O o 19 LO DO O e POLO O O e POLO Do O o LO DO e 10 (0) [0 A e 9 LO Es POLO o 
DOLO o e AAA AMIA IA Y ION DI 0 00 lo E Do Dl 000008 00 ARA A 
PA e O A e a e O A A A O O O A 9 A es e 
A e e A A A e ll ld a re 
MMMM MMM AMAIA MAMMA MMMM MISMA 


a) EA o ua DO dd aang doo 
DDD ELO e a O ADA A O OL APO IA rd e O 0.00 TA 0) 1 e 2 O 110 0 16100 


DARAS AAA ADA A DIAS ERAS ARAS ARI ANDAARDA ARD 
LODO a e OACI MAA A III IN O 0 0 0 E ls Es rr 00001 2 AA 
e e e e ml 9 0 e ll 9 ql e ll O ml A el el O ll rl e ll ll 
e A a 9 e o dl ll o el el 


PAD 0 19110 10 10 0 10 1:05 9 10 0 0 1 19 50 0 9) 3 3 3) 0 3 0 3 4 10 IM 1 PA O A PA 
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6-HARTNELL 


57 a 
ando oo ad o AÑO Y O ADD EA DAS o 
00D DIOLNARC AMA ADO NO ARO AAA DOGO PO DA RONDA A 


O e OU) Do O o POLA) Dos Ds ce PALO Ds O o 19) 10) Lo E e $US Dos O 0d 19 LN) Do O e PLD A o POLO Do A 0 LO lo A e 10 LO Co 2 9 LO Ds O e 19 10) 
BOLD e e e e OAMI MIA e e e RUN AO LO LO O 0 0D 0D 0 Do Do Do Do Lo 00 00000000 ADA ARO OOO nt o 
80 LD UD LID LID LED LD LO LO LA LS LD LID LI LI LA LI LD LO LD UD LP) LA LD LI AD LD LO LI LD AD LA LD LA 1 LD O LI LO A A) 1 LN LO 1 LO LO 1 O O O O DD DI DD 
ebododorolodobolotolobosorolodobobolobotoloboralrtoroorola ooo 


MMMMAMMAMMIMMMIAMMN MMMM MAMMA MMMM MMM MMIMMMMmmmrammra rm 


ot No 
DA DD A A O ata dado HN dd 0 radwra are 7 
PARIO IIA ION AO AO AO ARO AGO O AO MO ADO O IO 


ASA RDA ARIAS SAD RAN RDA DIA RDA ARDILLA DIAS 
BOOROA a e NAOMI el LO LO IO LO O 00 0 ll 000000000 nr 
E LES LOS LD LOS LID LAO LI LID LO 1 LI LO LO LD LAO LO LA LAO LD LO LD LO LIO LO LO LA LAO LO 0 LO LD LO LI LO LI LO LO LO LS LS LS LO LL O O WO O O Y O DD ID 
¿e e e ll dl e e o e 


0 90 199 050 950 15 60 50D 0 13 0 140 4 50 0 A 1 A A A 1 1 2 OA MA O A A IM AMM O MN A A 
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o 0. 0 «o ACAAANADÓ DUDO RROS Y IIA e o 
Lo ARO ARAN DO O RO A A A A A o AA AA 0 


Do Oro AO Do O e 10 LO Lo O LO Ls O o POLO Ls O e LO Do A e US A LO lo O e O O e 19 Dn A GO Do A e LO O A e 1 
OO AMAIA O e LO LO LO LO O O DI O 0 De o E E 00 00 08 00 00 A ADARO SO SO e ed e e cara 
DOGDDIDIDIDDDIDIDDDDIDIDDD DDD DDD DDD II e Do E Ds Po Ds Do Po Do E Ps Do Lo Es Eo Eo Eo lo 
triada inodoro loo todoo brote doce do lolodobobootororrroroore 
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s o 
Ne DEDOS DIANA RARAS O ANNA ao 
AOS an geo 0100010 ny DINA AO ATA RA O AAA ADICIONA 


DIO SI A SR 0 IAS RDA ADA ADA ANDA DIA RDA AA A A e 
AmO AMA MO A A e LO IN IO O 0 0 00 ll 0110 MARAARADOS O rr acc 
DODLIDIIODIDDDDDIDDDIDDDD DDD DI o E o E Do Do Ds Do Es Do Es Do Oo Ds E E Po Do 
AAA ld e el od 


MMMM MMMM MAMA MAMA a rara ra tara mramra mima rama cata MMM a a mara mama 
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o. DD 0» e. o e. y o Do 
DEDIDAMAADIDAMNAO ARAFO O AA ARMONIA MAR ANO MODERN 
ANOETA Ar e e A e 0 O O e e e LO LO O 0 0 0 AAN e e e 0 O OO 1 DO rt e 1) 


ME O o O LES Do O vu 4 LL) Los O 4 PO LO) Do O e Y) Ls O ed POLI O o POLEO Do O 0 POLLO Do O e PALO Cos O o 19 LO) Do O e LO) DD e LO) Ds O 
MIA A e e e LAO O O O O 0D 0 0 o Es Do DD 08 000 0000 AAA ARO OSONA e e e AAA A E Y 
LE PS LOs Lo Dos Do Dos Los Eos Ds Do Dos Dos Eos E Lo Dos Dos Pos Dos Dos Lo Es Dis E Eos Do Do Pa Es E Do Ds 00108 00 06 08 00 00 00 10 04 14 04 00 16.00 0414 08 10 00.00.0404 04 04 04 
A A A A A AAA A A A e e 9 e ll ol o ul o o 
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Doa o ar E ra Eafa 
Ho HRIIAAAAIRERa Sar ROcaca trar Harina) marino RO NADOS 
ANO ARA O e e e e e O UN OO E e e MO LO AO 0 TO A e y A O MO O e OL LO 4 0 e e 0 00 


DIAS RDA ANDAS ARADIAN ANDAN ERDAD DIA ANDAS NDA ANDA SADA DAA 
PA 0 0 el 8 LO LO O IO 00 0 0 O E [  AAMAAARARAOOIDO e e e AMM A mA e e ml e 1) 
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(50 1950 150 8950 159 350 99 90 9 090 5 5 5 150 5 0 150 4 150 1 A Y IM 1 A MM MIMI MMM IMM MIA na ra 


164 


6] « o « e « 
Sara a * Yo. Ana LAR ADAARARVO LADRA ANDA 
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Loco e o eto Wade eS UARIIIARARDIEADNDAO DN 
na Reno AO ONO RANAS Ano AMOO DAMA INR 


NADAL ARDIAO RDA RDA RDA NDA ADAN ANDA ANDAN RDA NDA A A 
NNNVNII00VIRNON AA aARAAAAOS OOOO e e ic LO IN IN IO O 0 DI 
ANA AAA AAA AAAEACEARARARADARADARAARADARAADADADA DAA AAA 
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ad o A ns y o 4... QOoO 
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E + o « Mm 
“oo MORA 2106: 
A ROA ADOMARTOLO RON IIOAANAAALAANO 
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Autores de los programas 


Agradecemos a los siguientes programadores la ayuda prestada 
en la elaboración de un libro lleno de interesantes y valiosos juegos: 


NIVEL CINCO Paul Toland 

CIRCO Paul Toland 

JOGGER Tim Hartnell 

DESACTIVA ESTA MINA Paul Toland 
HELICOPTERO Tim Rogers 

MAZURCA Paul Toland 

ALFABATALLA Tim Rogers 

PARED Ant Hurrion (modified bi Tim Hartnell) 
CONDUCCION 3-D Tim Rogers 

PANICO EN NORUEGA Tim Rogers 

CARRERA MORTAL Tim Hartnell and Tim Rogers 
CLONO LOCO Mike O'Neill 

PIRANDELLO Graham Charlton (modified by Tim Hartnell) 
DAMAS Tim Hartnell 

TIC-TAC-TOE Tim Hartnell 

AJEDREZ Tim Hartnell 

LA VENGANZA DEL CASTILLO ENCANTADO Tim Hartnell 
JUAN CAPITALISTA (Lemonade Stand) Paul Holmes 
SINTAXIS Tim Rogers 

EL POZO Tim Rogers 

EL GENERADOR GOTICO Tim Rogers 
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Bibliografia 


Hay muchos libros que pueden ayudarle con ideas para escribir 
juegos para el Spectrum. La lista siguiente incluye algunos de los 
mejores que hemos descubierto. 


Libros de juegos para ordenador: 


40 Computer Games from kilobaud microcomputing* Gibbs E.A. y 
Perry, J. (eds.) (Wayne Green Inc., Estados Unidos, 1980) 


The Softside* Sampler Witham J. (ed.) (Hayden Book Co., Inc., Esta- 
dos Unidos, 1982) 


BASIC Computer Games Ahi D. (ed.) (Workman Publishing Co., Esta- 
dos Unidos, 1980) 


More BASIC Computer Games Ahl D. (ed.) (Workman Publishing Co., 
Estados Unidos, 1980) 

Libros generales de juegos para obtener ideas: 

The Way To Play the Diagram Group (eds.) (Corgi, 1977) 

The Indoor Games Book Pennycook, A. (Faber 8 Faber Ltd., 1973) 
Games for Two Wasley, J. (Proteus Publishing Ltd., 1981) 


Everyman's Indoor Games Brandreth, G. (J.M. Dent 8 Sons Ltd., Eve- 
ryman Paperback, 1982) 


Dice Games, New and Old Tredd, W.E. (The Oleander Press, Cam- 
bridge, 1981) 

Discovering Old Board Games Bell R.C. (Shire Publications Ltd., 
1980) 


*Registered Trade Marks 
Los lectores interesados en aprender más sobre la programación del 
ZX Spectrum pueden encontrar material de interés en el libro "The ZX 


Spectrum Explored, de Tim Hartnell, publicado por Sinclair Browne 
Ltd. 
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Otros libros sobre MICROINFORMATICA 


C. Prigmore MICROSOFT BASIC 
Curso de autoenseñanza para principiantes 


G. Ladevie La gestión con BASIC 
Comercio y pequeña empresa 


G. Guérin — Microinformática de gestión 
Alternativas y utilización 


A.P. Mullan El ordenador en la Educación Básica 
Problemática y metodología 


D. Daines Las bases de datos en la Educación Básica 
Utilización y ejemplos 


G.W. Orwig/W.S. Hodges Programas educacionales para su ordenador personal 


P. Pellier— Lenguaje máquina del ZX Spectrum 
Subrutinas y trucos 


T. Hartnell— Juegos dinámicos para el ZX Spectrum 


R.G. Hurley Los Micro Drives del ZX Spectrum 
Utilización y aplicaciones 


L Sinclair Introducción al Commodore 64 
l. Sinclair Lenguaje máquina del Commodore 64 
S. Money — Gráficos y sonidos para el Commodore 64 


O. Bishop Juegos para el Commodore 64 


B. Lloyd Introducción al Dragon 
D. Lawrence Programas prácticos para el Dragon 


K.S. Brain Gráficos y sonidos para el Dragon 
Incluye subrutinas en código máquina 


K.S. Brain — Inteligencia artificial en el Dragon 
1. Sinclair Lenguaje máquina del Dragen 
M. James/S.M. Gee/K. Ewbank Juegos para el Dragon 


V. Apps 40 juegos educacionales para el Dragon 


Colección «Su ordenador personal 


Así se empieza 

Introducción a los ordenadores 

Peter Lafterty 

204 páginas, de 20 x 14 cm, con más de 100 ilustraciones a dos colores 

Indice. Introducción. 1 ¿Qué es un ordenador doméstico? 2 Cómo utilizar su ordenador. 3 
¿Qué puede hacer usted con un ordenador? 4 Cómo escribir sus propios programas. 5 Cómo 
funcionan los ordenadores. 6 Ampliación del sistema. 7 Elección del ordenador. 8 Hacia el 


futuro. Apéndice 1. Apéndice 2. Glosario de terminología de ordenadores. Resumen de orde- 
nadores. Bibliografía. Club de usuarios. Indice analítico. 


Primeros pasos en BASIC 
Susan Curran - Ray Curnow 


208 páginas, de 20 x 14 cm, con más de 60 ilustraciones a dos colores 


Indice. Introducción. 1 Cómo escribir en la pantalla. 2 Nuestros primeros programas. 3 Intro- 
ducción de variables. 4 Bucles y ramificaciones. 5 Edición y corrección de errores. 6 Cómo 
manejar los datos. 7 Cómo escribir programas más largos. 8 Los siguientes pasos. Apéndi- 
ce 1. Apéndice 2. Apéndice 3. Respuestas a las preguntas. Indice analítico. 


El estudiante y el ordenador 

Aplicaciones a la enseñanza 

Susan Curran - Ray Curnow 

168 páginas, de 20 x 14 cm, con más de 40 ilustraciones a dos colores 


Indice. Introducción. 1 El ordenador como una ayuda para aprender. 2 Ordenadores para los 
niños. 3 Programas de recursos. 4 Cómo comprar software. 5 Hardware para la educación. 6 
Algunos programas para que usted los pruebe. Apéndice 1. Apéndice 2. Bibliografía. Clubs de 
usuarios. Indice analítico. 


Juegos, imágenes y sonidos 
Susan Curran - Ray Curnow 
168 páginas, de 20 x 14 cm, con más de 50 ilustraciones a dos colores 


Indice. Introducción. + Resumen histórico de los juegos por ordenador. 2 Tipos de juegos para 
ordenador. 3 Gráficos por ordenador. 4 Generación de sonidos mediante su ordenador. 5 
Hardware del ordenador. 6 Cómo escribir programas de juegos. 7 Algunos programas que 
usted puede probar. 8 Compra de programas. Glosario. Indice analítico. 


Tim Hartnell brinda en este libro veinte juegos 
dinámicos para el ZX SPECTRUM. Aparecen desde 
juegos de tablero, como Ajedrez o Pirandello, a jue- 
gos de acción, como Jogger y La carrera mortal, e 
incluye un gran juego de aventuras: La venganza del 
castillo encantado. 

Se introduce cada juego con detalle y, en la 
mayoría de los casos, se explica línea por línea. Se 
han subrayado los trucos y las técnicas especiales 
Usadas por los programadores y Tim Hartnell le su- 
giere cómo los puede aplicar a sus propios progra- 
mas. Al final del libro se ha incluido un capítulo con 
sugerencias para mejorar sus programas. 


Editorial Gustavo Gili, S. A. 
Rosellón, 87-89 
08029 Barcelona 


